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1 . BEVEZET^S 



Az On Altai vAsArolt PRIMO PASCAL Lehetfiv* teszi, hogy PRIMO A- 
64-es szem6lyi szAmi tog6p6n a "PASCAL" magasszintu programnyelven 
irjon 6s futtasson programokat. 

Ezen n»ikrog6pes PASCAL verzi6 rendelkezik a standard PASCAL 
ml n den I6nyeges lehetos6g6vel f kieg6szitve n6hAny, kifejezetten a 
szem6lyi szAmit6g6pes alkalmazAst 6s a g6p Iehet6s6geinek teljes 
kiaknazasit segito miivelettel. (A "standard PASCAL" terminol6gia 
itt 6s a tovAbbiakban is a Kathleen Jensen-Niklaus Wirthi A 
PASCAL programozAsi nyelv cimfl. konyvben ismertetett PASCAL verzi6ra 
vonatkozik. CI] 

A fobb elt6r6sek a kovetkezok: 

- FILE tipus nem 6rtelmezett; 

- variAlhato RECORD tipus nem erteUiezettj 

- eljArAsok 6s fuggv6nyek nem lehetnek mAs elja.ra.sok 6s 
fuggv6nyek param6terei; 

- adatok tArolAsa — hasonl6an a BASIC rendszerhez — a g6phez 
csatlakozo rnagnetofonon lehets6ges; az adatok <"tArk6pszerQ": 
core image) kiirAsa 6s beolvasAsa kozvetlenul prograrnbdl 
tort6nikf egy ilyen muvelet egy file eg6sz6re vonatkozik 
(bele6rtve a file megnyitAsAt 6s LezArAsAt is). 

- halmaz /SET/ tipus szAmossAga max. 256 /!/» de egy6b 
megszor itisok 6rv6nyesek» amelyeket a megfeleto helyen ismertetunk 

- RECORD tipus mezoelnevez6se semelyik egyedi vAltozon6vvel nem 
egyezhet meg. Ha m6gis igy tenner pi. f igyelmet Iens6gb6l i a 
hibajelz6st a forditAs sorin akkor kapjuki ha a hibAs mezore 
/!/ hivatkozunk. TalAn nem 6rdektelen azt sem fiiegjegyezni , 
hogy az 55-6s kodii hibauzenet ellen6re a forditAs eredm6nye 
kiv6telesen helyes lesz! 

Ez a dokumentAcio elsosorban olyanok szAmAra k6szCilt. akik rnAr 
tobb6 kev6sb6 ismerik a standard PASCAL programozisi nyelvet, de 
rem6lhetoleg azok is haszonnal forgatjAk. akik m6g csak mAs t 
- p6ldAul BASIC - programozAsi nyelven szerzett gyakorlattal 
rendelkeznek. 
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1- A rORDl'TOPROGRAM ELINDITASA 



A PASCAL forditoprogram betoltese a kazettAroA eppOtgy tortenik? 
mint bArmely mas PRIMO programe: helyezzuk a kazettAt magnonkba, 
irjuk be a LOAD parancsot es inditsuk el a magnot. A RETURN 
billentyii lenyomAsa utAn rovidesen ntegjelenik a "FOUND: PASCAL" 
felirat, jelezven a PASCAL betoltesenek rnegkezdeset. Abban az 
esetben, ha a hibaszAmlAlo ert£ke nem nulla? a program betolt£set 
a RESET gombbal szakitsuk felbe, £5 a mflveletet ism&telju.k meg? 
esetleg modositva magnonk hangero - 6s hangszinszabAl yozo 
gombjainak AllAsAt. Szukseg eseten a lejAtszofej alkohollal 
torteno megtiszti tAsAra? illetoteg demagnetizAlAsAra is sor 
kerulhet. 

A program betoltes utan automat i kusan elindul. Ennek elso jele 
a kepernyo tetejen megjeleno "End of Memory?" kerdes, es a 
villogi kurzor, tovabba hangjelzest is kapunk. Ilyenkor ketfele 
lehetosegiink van: 



1. a RETURN billentyii megnyomAsa eseten a program 
alapertelmezeskent a BASIC string memoria vegcimet 
tekinti a szAmAra elerhetd memoria vegenek; 

2. egy £5535-nel kisebb decimAlis szarn beirAsa eseten a 
PASCAL e cim fdldtti riieinoriaterutetet erintet lentil 
hagyja. <Ne feledkezz unk meg arrdl r hogy a PRIMO 
k£pernyo-mefiiori Aja az 59392-es cimtiM folfele 
helyezkedi k el ! > 



E ket lehetseges valasz valamelyike utAn a PASCAL ujabb kerdest 
tesz fel: 
"Length of Table ?" 
Ilyenkor lehetosegu.nk van a fordito altal fceszitett 
szinibolumtAbla hosszAnak beAllitAsAra a generAU kod javira? 
illetve rovAsAra; tehAt ha olyan PASCAL programot kivAnunk irni? 
amely igen sok valtozot? tipust stb. kezel? e kerdesre erdemes 
egy nagy szAmot beirni vAlaszul; ez esetben ennyi byte-ot 
foglalunl: a szimboluriitAbla szAmAra. Forditott esetben tehAt ha 
hosszO? de keves vAltozot hasznAlo programot tervezilnk irni? itt 
kisebb szAmot erdernes megadnunk. 

(Egy szimbdlum — vAltozoj tipus? eljArAs stb. — a 
szimbdlumtAblAban 10-15 byte-ot foglal el a neven kivul? tehAt 
peldAul egy "VALT0Z0" nevti. vAltozora kb. 7 + 12 = 19 byte 
helyet szAmolhatunk. ) ) 

Ha nem irunk be semmilyen szAmot? csak a RETURN billentyiit 
nyomjuk le? a program alapertelmezesben Atlagos PASCAL programok 
szAmAra foglal hetyet. 

Eldfordulhat olyan eset? hogy a ket kerdesre adott vAlasz nem 
megfelelo tArkiosztAst eredm^nyez (pi. tu.1 rovid vagy tul hosszd. 
szimbolumtAbla) ? ilyenkor a kArdeseket megismfrtli a program. 

Figyelem: az itt beAUitott memoria-felosztAson csak a PASCAL 
lijb'oli betoltesevel vAltoztathatunk! 



Ezek utAn a PASCAL bejelentkezik; a sor elso pozicidjAban megjelend 
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">" jeli az an. prompt jelzi, hogy a PRIMO PASCAL szovegszerkeszt6je 
(editor) parancsot vAr. 

A PASCAL elinduUsa pillanatAtol gyakor Lati lag teljesen 
fiiggetlen a PRIMO BASIC rendszeretol; igy nem hasznAlhatjuk a 
megszokott editort sem, helyette a PASCAL sajAt, ketloen hatekony 
sor-editorral rendelkezik. 



Ezen editor hasznilat mellett k*t jelentfis elterest figyelhetunk 
meg a BASIC editorhoz viszonyitva: 

1. a PASCAL-ban alapertelmez£sben csak nagybetftket tudunk 
hasznilnij 

Ez alol az "a", "e", es "6", valamint az "u" betuk 

kivetelek; eztk nagybetfcs alakjanak eloillitasAhoz az 

"UPPER" billentyii elozetes, vagy a SHIFT egyidejCi 

lenyomAsa szukseges. 

(kisbetiiket programbot a megfelelo CHR(nn) fuggveny 

hasznAlatival irathatunk ki.) 

A PRIMO billentyOzeten talAlhato ekezetes betftk 

szimbdlumokban valA hasznilata titos! 

2. nehany billentyCt tij j*l*nt£st kapott: 
"6" helyett "3", 

"6" helyett "C", r 

"il" helyett "{", \ 

"ft" helyett ")" jeUnik meg. 

Ezen AtdefiniALt karakterek eredeti forn»A.iukban 

sehogyan sem i rat hat 4k ki a PRIMO PASCAL~bol . 
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A PASCAL elinduUsa utan a PRIMO hAtlapjan talAlhato RESET gorub 
&z editor meUginditAsAra szolgAl; hatasAra tehAt bArmilyen eppen 
futo program vagy funkcio vegrehajtasa megszakadi a kepernyo 
torlodik es az addig beirt szoveg torlese nelkul visszakerulunk 
az alapAl lapotba: megjelenifc a prompt, £s az editor u.j parancsot 
vAr. E: az illifcAs nem igaz, ha elozetesen letiltottuk as NMI-t, 
pi. az OUT(0,CHR(O)) vagy hasonli utasitAssal. 
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AZ EDITOR 



A sor szelen megjeleno ">" jel Jelzi ( hogy a PASCAL editora 
par anc sot var . Ennek altalanos for ma j a a kovetkezo: 

snl,n2,tl,t2 



ahol 



s: a vegrehajtando parancs; 

nl 6s n2; egesz sz&m 1 6s 32767 kozott; 

erre a - zsrt - sorszaminterval lumra vonatkozik 

a parancs 
ti 6s t2: maximal isan 20 karakterbol alio szoveg. 



A par anc son belut az argumentumolc elvalasztasAra vesszok 
szolgalnak; ez a K paranccsal mis hatarolo karakterre tserelheto 
ki . A parancs elott 6s az egyes tagok kozott tetsz6s szerinti 
szamu. szokoz-karakter allhati ezeket az editor figyeLmen kivul 
hagyja. J6llehet nem minden parancsnal szukseges az osszes 
argument urn jelenleter de vannak parancsoki me I ye k azok nelkiil nem 
mukodnek. 

Elofordulnak olyan esetekj ahol egy parancs tobb ar gumentuma 
kdzul pi. ethagyjuk az el so kettfiti de megtartjuk a harmadikat ( 
pi. 6 parancs). 

1 1 yen esetben az editornak jeleznunk kelU hogy a megtalilt 
egyetlen argumetltum nem az elso kivan Lenni, ezert elotte annyi 
hatarolo karaktert (vessr&t) kel( el helyeznunki amennyi az 
argumenturook elhagyssa neU-ul ott lenne. (pi. a G parancs 
sorszamok megadasa nelkiil helyesen a kovetkezo: G»jtlit2 

ertelmet lasd kesobb. ) 

Az editor mindig eltsrolja az utolj&ra kiadott parancs 
argumentumait: sorszi.mokat , szovegeket. /Ha az utolso parancsnal: 
/■— * valamelyik argumentuma hiAnyzotti az az elotti argument urn* riiarad 
tarolvai es i.t./ Ez akkor is igy tortenik, ha a parancs 
valamilyen okn&l fogva nem vegrehajthato /hibis/, vagy ha a 
parancs nem hasznat eltarolt erteket. Arnennyiben a kovetkezo 

parancs/ok/ban valamely argumentum hiatiyzik /de helyet jelzi a 
vesszo/p annak helyere - feltevei hogy a parancs mGkodik eltarolt 
argument umma I /pi. az E f D r N parancsok nem!/ - az eltarolt 
ertek keru.1. Az alapertelmeseseket a V paranccsal irathatjuk ki. 

A PASCAL elinditasakor az ervenyes tarolt argurnehtum-ert6kek a 
kovetkezok: 

nl = n2 = 10 

tl = t2 - Ores string 

Hibas parancs beirasa eseten az editor a "Pardon ?" kerdessel 
utasitja vissza azt. /Egykarakteres hibis parancsoknal ez nines 
igy; ott az editor egyszerCien nem hajtja v6gre azt. A tarolt 
alapertelmezes azonban ilyenkor is megvaltozhat !/ 



3.1 Az editor parancsai- 



Az editor parancsok ismertet^senel azokat az argumentumokati 
melyek elhagyhat6k ( zArojelbe tefctu.k. 



3.1.1. Program beirAsa 

PASCAL program szovegenek beirAsAra ketfele lehetosegunk van: 
vagy sorszi.ni es egy szokoz utAn kozvetlenul ( vagy az A parancs 
Altai nyujtott autotnatikus sorszAmozAsi lehetoseg 

kihasznAlAsAval . 

A PASCAL nyelv ezen vALtozatAnil sines semmi szerepe a sorok 
szAmozAsAnaki err* csak az editornak van szuksege egy adofct sor 
kivAlasztAsAhoz. 

A parancsok a kovetkezuk: 

A /nl,n2/ /AUTO/ 






A parancs kiadAsa utAn az automatikus sorszAmozo uzemmodba 
lepunk: az nl-edik sortol kezdve - es azt beleertve - n2 
novekmennyel irodik ki a sor szelere a kovetkezo sorszAm. UtAna 
kozvetleniil irhatci a szovegi az uzemfnod a sorszAm utAn szukseges 
szokozt is kiirja. A programsor beirAsAt a RETURN gotnbbal kell 
befejeznii ekkor a kovetkezo sor elejen megjelenik az uj sorszam. 
A beirhato prograirtsor maximAl is hossza 80 karakteri ezt azonban 
az editor nem is engedi tiillepni. 

Ebb>M az uzemmodb'M a "lefele nyil" billentyu LenyomAsAval 
I &phetunk ki . 

Ha egy mAr korAbban letezo sorszAmu. sort irunk be, es ezt RETURN- 
nel lezArjukr az eddigi sort ezzel - mind en figyelmeztetes 
nelkul! - feliilirjuk. /Ellentetben a BASIC editorral, ahol 
^~* ilyenkor a sorszAmot "*" koveti./ 

Ha az automat ikus beirAs kozben a sorszAm eleri a 327£7-et,a 
"le-nyil" billentyu nelkul visszalepunk az editorba. 



3.1.2. Program listAzAsa 



L/nl,n2/ /LIST/ 

A beirt szoveget listAzza az nl-edik sortol az n2-edikig. 
Alapertelrnezesben nl rnindig 1, n2 pedig a szoveg utolso sora ( 
tehAt nem fugg a korAbbi eltArolt ertekektol! Igy az 
argumentumok nelkul megadott L parancs az egesz szoveget 
listAzza. A parancs operandusai - ha vannak - modositjAk a tArolt 
alapertelmezeseket. Erre u.gyeljunk! 

A kepernyon a kenyelmes olvashatosAg erdekeben egyszerre csak 
bizonyos szAmii sor jelenik meg. 

/E sorok szAmAt a W paranccsal m6dosithat juk f alapertelmezesben 
15 sor./ 

A listAzAs megszakadAsa eseten a "le-nyil" billentyu hatAsAra 
visszakeriilunk az editorba* bArmely mAs gontb lenyomAsa eseten a 
listAzAs a soron kovetkezo szAmu sor kiirAsAval folytatodik. 
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W /nl/ /WAIT/ 

E paranccsal Allithatjuk be, hogy a listAzAs hAny sor kiirAsa 

utAn Atljon L*| nl erteke 1 es 255 kozott " Lehetj az 
alapertelrnezes ervenyes! 



3.t.3. Szoveg szerkesztese 



D nl,n2 /DELETE/ 

HatAsAra nl-t-M n2~ig az editor torli az osszes megl6vA sort. 
Ha csak nl-et vagy n2-t adunk meg, a funkcio nern fog mftkodni . Egy 
sort csak D nli nl-gyel torolhetunk! /Vagy egyszerubben nli 
RETURN - nel,/ 



M /nl,n2/ /MOVE/ 

E parancs hatAsAra az nl-edik sor felu.lirja az n2-ediket, 
illetve ha az nem I6teziki ilyen sorszAmmal az editor ber»Asolja a 
szovegbe. A parancs vegrehajtAsa az eredeti /nl-edik/ sort 
vAltozat lanu.l hagyja. 



N nl,n2 /NUMBER/ 

A parancs a proram AtszArnozAsAra szolgAlj nl kezdettel, n2 
ndvekmennyel . Ha az QjraszAriiOzAs hatAsAra barmelyiki vagy a sor on 
kovefckezo sorszAm el erne a 32767-eti a regi sorszAmozAs marad 
ervenyben. 



G/nlin2 f tl|t2/ /GLOBAL SEARCH/ 

tl szoveg keresese nl es n2 sot ok kozott i szovegreszben. 
Amelyik sorban a tl szoveg eloszor elofordul, az megjelenik a 
kepernyon, es a vezerles Edit modba kerul /Id. kesobb/. t2 az a 
szoveg, amelyre tl kicserelhetoi hiAnya eseten tl toroLhetci. A 
parancs vegrthajt Asa mind en olyan sorban megAll, ahol tl szoveg 
elofordul. es egy sorszerkeszto al-utasitist vAr. Ha ez S , tl- 
et kicsereli t2-re, ill. torli; RETURN eseten pedig tovAbblep ti 
kovetkezo elofordulasi helyere, a kijelzett sort vAltozatlanul 
hagyva. 

/Ha nl-et 6s n2-t nern adunk meg, itt is az aktuAlis tArolt 
sortartomAnyok Lesznek ervenyesek a parancs verehajtAsAnAl . / 



E nl /EDIT/ 

A parancs hatAsAra az nl-edik sor Edit uzemmodba kerul. A scr 
sz Am Aval egyutt megjelenik a kdpernyon, 6s az it k 6 vet 6 sor 
elejen isr»et megjelenik a kivAnt sorszAmi kozvetlenul utAna pedig 
a villogo kurzor. E sort javithatjuk a kovetkezokben felsorolt 
utasitAsok segi tsegAvel . Az editor a riiodositAsokat a tArolt 
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programsoron new hajtja valosagosan vegre mindaddig, mig a 
RETURN-t meg nern nyomtuki igy az L, R vagy billentyflk 
segitsegevel visszaterhetunk az eredeti Allapothoz. 

A sor szerkesztesere a kovetkezo "alparancsok" szolgAlnak: 



SPACE billentyu hatAsAra a szerkesztett sor kovetkezo' 

karaktere jelenik meg* A sor vege utan semmi hatAsa nines. 

^ — dOftib hatAsAra a kurzor egy karaktert visszalepr az 
aktualis karakter torlese nelkul. 

RETURN hatasara kilepunk Edit dzemmodboLf vegrehajtva az 
osszes val toztatAst . 

Q : a szerkesztes lezArAsa anelkulj hogy a vALtoztatssokat 
vegrehajttatnAnk a programsoron. /QUIT/ 

R : a sor szerkesztesenek ujrakezdese; a kijelolt programsor 
eredeti formAjAban keru.l ismet elenk. /REPEAT/ 

L : hatAsAra a teljes sor megjeleniki es a kurzor az elso 

pozicioba keriilj utAna a szerkesztes folytathato. /LIST/ 

K : a kurzor Altai mutatott karakter torlese. /KILL/ 

E paranccsal tobb karaktert is torolhetunkf de a 2 ... 
karakterek torlese "vakon" torteniki ez£rt tisztAban kell 
lennunk a torlendo karakterek pontes szAmAval /SPACE-ok is 
szAfiii tanak ! / 

E a kurzor Altai mutatott karakterrel kezdodoen torles a 

sor vegeig. (ERASE) 

a 6/nlin2itlit2/ editor parsnesban megadott tl szoveg 
kovetkezo eloforduLA&At keresi a szerkesztett soron belul. Ha 
talAl ilyet a sorban, a kurzort annak etso karakterere 
ALlitja» ha nenij automat ikusan kilep az Edit modbol 
/megtartvAn a vAUoztstAsokat/. (GET) 

a S/nljn'Z', tl» t2/ parancsban megadott t2 szovegre 
csereli ki tl aktuAlis elofordulAsAt , inajd vegrehajt egy 6 
alparancsoti azaz vagy tl kovetkezo eloforduLAsi helyere Allj 
vagy kilep Edit modbcl . (SUBSTITUTE) 

I Atteres "besztirAs" uzeiiimodba: ezt a sor bal szelen 

megjeteno I karakter jelzi. Mig RETURN bi L lentyuvel ki new 
lepu.uk ezen modbol t az editor mind en beirt karaktert besziir a 
kurzor Altai mutatott pozicioba. Ez a pozicio az "I" modbol 
val 6 kilepesig nem vAltoziki azaz a kurzor kilepeskori 
poziciojAt koveto karakterek eltolodnak. /INSERT/ 
Figyelern! Ha a besz&rAs folyawAn a 80 karakter hosszu 
sorpuffer beteliki a beszCirAs megAll es az adott szAmO. sor 
szer keszthetetlenne vAlik. Ezert ilyenkor ezt torolni kell! 

A a kurzor a sor legvegere ugrik* es Atter "I" modba. 

/APPEND/ 

C Attires "csere" uzemmodba* ezt a beszurAshoz hssonloan a 

sor elso poziciijAban megjeleno C karakter jelzi. A RETURN-nel 
torteno kilepesig a beirt karakter feliilirja az ott levoti es 
a kurzor eggyel tovAbblep. /CHANGE/ 
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A sor vegere erve "C" uzemrmidban nern tudunk tobb karaktert 
beirnir At kell terni "I" modba. 



3.1.4. Program elmentesenek lebetosegei 



S nt r n2 r nev /SAVE/ 

Ezzel a paranasal a PASCAL forrasnyelvfl. programed kiirhatjuk a 
rsatlakoztatott kazettAs magnora. A parancs az nl es n2 aorszAmok 
kozotti szoveget irja ki, /beleertve nl es n2 sort is,/ 'njv 
pedig a kiirandi szdvegfile neve lesz, maximum 8 karakter 

hosszasAgban. Kapcsoljuk magnonkat felvetel AllAsba, rnajd a 
RETURN billentyfc lenyomAsa utAn a kiirAs megkezdodik. 
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Mivel a PR I MO PASCAL kOUon ellenorzes /TEST/ funkcidval nem ^^ 

rendelkezik, erden.es elmentes utAn visszaolvasni programunkat - C3 £ 

az eredeti kitorlese nelkul. /I parancs./ uj 



C3 *t 



F nl,n2,nev /FILE/ ^ 

A parancs a fordit* F opcioja szAmAra rnent kazettAra szoveget. 
A parancs argumentumainak erteUezese es hatAsa megegyezik az S 
paranesnAl lAtottakkal . 

Figyelem! Az S paranccsal kivitt szovegfile nem hasznAlhato az 
F opciohoz, tovAbbA az F paranccsal kiirt file sem olvashato be Q 
az I paranccsal. IT opci6 magyarAzatSt lAsd az 5. fejezefcben./ 



i/ tl n#w nmsu 



E 



paranccsal olvashatunk be S paranccsal eUientett szoveget. 
Itt "nev" a keresendo file neve, ha e I mar ad i az editor az elso 
i.-egfelelo formAtumft azaz S paranccsal tetrehozott file-t otvassa 

Ha mAr ^aty szoveg beirva, az editor az ily modon betoltott 
file-t a tArban Uvihoz hozzAszerkeszti , mogekapcsol ja e= az 
egeszet AtszArnozza 1 kezdosorral es J novekmennyel . 

/A parancsban a ket vesszo az itt szuksegtelen nl»n2 
argumentumok helyet jeloli - Id. a fejezet bevetojet./ 
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3.1.5. PASCAL forris program forditasa es futtatssa 



C/nl/ /COMPILE/ 

Ezzel a paranccsal fordithatjuk PASCAL forrAsnyelvu 
programunkat. A forditAs az nl-edik sornAl kezdfidik, ha pedig nl- 
et nem adunk meg, az elsi letezo sornal. 
A forditAsrol - ha azt az L compiler direktivAval nem tiltjuk le 

- I ista keszul . 

Ha a fordito a forditAs sorAn szintaktikus hibat talAU 
* ERROR * hibajelzessel leal I, es kiir egy nyilatj mely a hibat 
okozo szimbolurnra mutat. A nyi I mellett kiirja a hiba kodjat is, 
mely jelentese az 1. Fuggelekben megtalAlhato. A forditas 
r.iegszakadAsakor az E billentyu. hatasara az aktualis sor Edit 
uzemmodba kerul, es kozvettenul javithato, a P hatAsAra pedig az 
azt megelozo sorral tortenik ugyanez. htindket gomb hasznAlataval 
a forditas befejezodik, (nig ha a hibajelzes utAn barmely mas 
billentyut nyomjuk meg, a forditas tovAbb folytat6dik /esetleg 
ujabb hibauzenetek ki jelzesevel/. Ha a "le-nyil" bit LentyGt 
nyomjuk be veletleniil, ennek hatasara inverz kepernyo jelenik 
meg, es a forditas folytatodik. Megszakitasa RESET-tel tortenhet. 
Ha a forditas soran azt eszleljuk, hogy a hiba nem a kurrens, 
vagy az azt megelozo sorban van, legcelszerubben az E, majd a 
RETURN billentyut egymAst koveto lenyomAsAval terhetunk vissza az 
tditorhoz. Elofordulhat az ir, hogy a hiba ellenere a forditsst 
folytatni kivanjuk /Usd a Bevezetot/. Ez tortenik, ha barmely 
gombot benyomjuk hibajelzes eseten /kiveve az E, P, RESET es "te- 
nyi I " gombokat/. 

Sifceres ford it As utan a fordito a "Run **" k&rdtst sz*g*zi 
nekunki melyre ha az "Y" vAlasz* adjuki a leforditott program 
szonnal elindul. linden mAs valasz eseten visszakerAlOnk a: 
edi tor b j. < 



r /RUN/ 

Hatisara a korabban leforditott pr ■;.- Lefut - de csak abban 
az esetben, ha a forditas Ota a fo.-i '-1 rzoveg nem lett hosszabb ! 

A program Ufutisa utan visszakerulunk az editorba. 
Ha a program pi. vegtelen ciklusba kerul, a PASCAL rendszer 
elrontcsa nelku.l kiserelheto meg megszakitasa RESET-tel. Ha ez 
nem si kerul - pi. a RESET gombot letiltottuk - akkor sajnos csak 
a tApegyseg kikapcsolasa vezet celra, de ilyenkor ertelemszeruen 
ujra kell tolteni a PASCAL - t , es a forrAsprogram is elvesz. 



T/ni/ /TRANSLATE/ 

E parancs revtn generalhatunk olyan kazetta file-t, amelyet 
kesobb betoltve onalloan futo, mukodokepes programot kapunk. 

A parancs kiadasa utan elindul a program forditasa pentosan a C 
parancsnal LAtott mi-don, az nl-edik sortol, ill. a legelejetol. A 
sikeres forditAs utAn a gep &z "O.L. ?" kerdest teszi fel.Ha em 
nem "Y"-nal vALaszolunk, a vezerles visszakerul az editorhoz. Ha 
azonban a kerdesre az "Y" billentyut nyomjuk le, az S parancsnAl 
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Latott rnidon kezdodik a kiiris kazettara. Az ily widen 
keletkezett file a PRIMD LOAD parancsival olvastathato be-. A 
program beolvasasa utAn azonnal futni kezd. 

Mivel a T parancs alkalmazasa tonkreteszi a compiler gepben 
levd masolatatj azt hasznalni ilyen forniaban utana mar nern lehet» 
a file kimentese utan a PASCAL befejezi mukodesetj es visszater a 
BASIC rendszerbe. 

Vigyazzunk tehat arra, hogy a T paranccsal csak hibatlan es 
tobbszorosen is ellenorzott prograritot mentsiink el. 

Rendkiviil fontos, hogy az igy leforditott program hasznalata 
soran keruljuk a "le-nyil" bil lentyCt hasznalatat , mert ez a 
program torlodeset eredmenyezi ! 



3.1.6. Egyeb parancsok 



G /QUIT/ 

E parancs az editor hideginditasara szolgal. HatAsara az editor 
torli az eddig beirt forrAs, es targyprograrnot. 



Kiftl /KIEV/ 

A parancs segitsegevel uj argumentum-el vslaszto karaktert 
jelolhetunk ki. /AtaperteUiezesben ez vess-'l./A parancs kiad^sa 
utan minden tovabbi utasitasbati az iij etvilasrto karaktert kell 
alkaLmaznii mel> * tl string els* karaktere U = :. /Space nen. 
lehet !/ 



v /VALIDITY/ 

Kiirja &z aktualis sortartomanyti /inelyet a legutoljira kiadott 
parancsban megadtunk/ es a G edi tor-parancsban megedott tl 
helyettesitendo es t2 helyettesito szoveget, illet.e ha ezek new 
leteznek akkor ket Ores sort ir ki. 



B /BOTTOM/ 

E parancs hatasara az editor kiirja a fordito vegcimet a kepernyire 
hexadecimal isan. 
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■4. A PRIMO RASCAL ISMERTETtSE 



A PRIMO PASCAL - es vele a PASCAL programnyelv - ismertetesenel 
olyan strukturit fogunk kovetnij amely lehetov£ teszi e leiris 
kezi konyvk^nt tdrteno felhaszna.lAsAti a nyelv va Lamely 

jel lemzoj£nek gyors visszakereseset ( ez£rt e fejezetben a nyelv 
lehetosegeit kulcsszavakban es p^ldAkon at mutatjuk be. R£szletes 
szintakti kai diagramot az olvasd a 3. Fuggel£kben talalhat. 



s~- 



r^ 



<.l. A PASCAL program felepitese. 



PROGRAM nev; 

A program neve az angol ABC-ben szereplo karakterekbol AL16 
tetszoleges szoveg lehet. 



DeklarAciok : A PASCAL nyelv egyik legszembeotlobb 

sajstossAga, hogy benne minden azonositot /legyen az konstansi 
tipus, vaitozoi etjarAsj cimke stb./ az elsfi felhasznslssa elott 
deklaralni kell. 

A deklarsc j 6k sorrendje a kovetkezo: 

LABEL cimke; 

Ci fnke elojel nelku.li eg£sz szam lehetp rnelyekre GOTO 
utasitisokban hivatkozhatunk. E einikedeklarAcioban tobb cimke is 
f el sorolhato vesszcvel el Vc .lasztva. 



CONST azonosito = ertek; C azonosito = ertek; 3 ... 

A PASCAL programnyeLv lehetoseget ad arraj hogy programunkban 
tetszoleges konstansokat def inia.l junk. Ezekre a programon beliil 
barmikor hivatkozhatunk, de uj firteket tobbe new kaphatnak. 



TYPE tipusnev = leirAs; [ tipusnev = leiras; ....3 

A PASCAL nyelv egyik legnagyobb elonye. hogy az el Are definialt 
tlpusok /Id. kesobb/ segits^gevel tetsz£s szerinti uj adattipusok 
hozhatok letre. 



VAR valtozoazonosito : tipus; C azonosito : tipus; ... ] 

Itt kell deklaralni a programunkban elofordulo valamennyi 
viltozot. Az itt megadott tipus a valtozora mindvegig jellemzo 
lesz> azt new lehet megval toztatni . 



A valtozok deklarAcioja utAn kovetkezik a programban 
hsznAlt eljArAsok es fuggvenyek leirAsa. /Ezeket egyutt 
szegmenseknek szokAs nevezni./ Ezek strukturAjukban rnegegyeznek a 
teljes Pascal program felepitesevel : van "fejl4c&k"i melyet a 
PROCEDURE ill. FUNCTION sz6val kell kezdeni i ezt neviik, valamint 
az esetleges parameter Li sta kovet» majd kovetkeznek az eljArAs 
belso /lokAlis/ cimkiineki konstansainakr tipusainak» valtozoinak 
es belso el jArAsainaki fu.ggvenyeinek deklarAcioi . Ezen lokAlis 
szimbolumok csak azon a szegmensen beliil ervenyesek, ahoL 
deklarAlva vannak> valamint az ezen szegmensen beliil definiAlt 
tovAbbi szegmensekben. melyekre nezve ok mar "global is" 
szimbolumok. 

Ily modon a PASCAL programban tetszoleges melysegig egymAsba 
igyazhatok eljArAsok es fuggvenyek. Mindegyikben deklarAlhatok 
helyi tipusokr vAltozok stb., melyek ervenyessege az adott es az 
ennel melyebb szintek mindegyikere kiterjed, de foljebb nem. Igy 
a foprogramban definialt szimbolumok ervenye az egesz programraj 
minden szegmensre kiterjed. Ha egy szegmensen belul olyan neven 
deklarAlunk valamit, ami felsobb szinten mar szerepelt. a 
tovAbbiakban e nevre valo hi vatkozAsoknAl mindig az utolso 
definicio lesz a mervado, de a szegmensbot valo kilepes utan az 
eredeti vAltozonk vAltozAs nelkul hasznAlhato. 



Pt.i 



PROGRAM FELDA; 
VAR EGYIK, MAS IK : REAL; 



{REAL=egesz szAm) 



PROCEDURE ELJARAS; 

VAR A,B : INTEGER; 
EGYIK : CHAR; 



i INTEGER=egesz szsm.3 
(CHAR* karakterD 



PROCEDURE BELSO; 
VAR CSAKITT : BOOLEAN; 



CBOOLEAN=logikai 3 



r* 



■:■ 



1 



. '. 



fejezet./ 



= :6vegek fitegjegyzestk] Id. A, 4. 



MAS IK 



E peldaban a foprogramban hi vatkozhatunk az EGYIK es 
REAL tipusd vAltozokra, valamint az ELJARAS eljArasra; 

az ELJARAS el jArAsban hi vatkozhatunk A £s B INTEGER, MAS IK REAL 
es EGYIK CHAR /!/ tipusti. vAl tozokra, valamint BELSO eljArAsra; 

a BELSO eljerasban pedig hasznAlhat juk a CSAKITT logikai, az 
EGYIK karakter, az A es B egesz, valamint a MASIK vales tipusu 
vAltozokat. 



O 



E deklarsciok utAn kovetkezik a program maga, BEGIN es END 
kulcsszavak k6ze ekelve. /Kulcsszonak nevezzuk a PASCAL-ban az 
eleve meghatArozott jelentessel biro szavakat, pi.: 'PROGRAM'. 
'VAR' stb. Teljes listAjuk a 2. FCggelekben talAlhatd./ 

A prograrnon belul tdbbszoi" szerepelhet tetszoleges melysegig 
fcovibbi BEBIN ... END pin melyek kozott tovAbbi utasitAsok 
lehetnek. Logikai lag es szintaktikai Lag az ilyen "utasitAs- 
zArojelbe" tett utasitAsok egy utasitAsnak szAnitanak. 



A programblokkok es az utasitAs-zArojelek csaknem korLAtozAs 
nelkuli felhasziiAlhatosAga biztositja a PASCAL program 

nagymertekO szegmentAlhatosAgAt, attekinthetoseget , es azt, hogy 
GOTO utasitAsra csak a legritkAbb esetben van szukseg. 



A PASCAL programnyelvben - elteroen pi. a BASIC-tol - a sornak 
semmifele kitiintetett szerepe nincseni itt a sor nem kepvisel 
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IniormAcioegys*get a forrAsprogramban. Igy egy tor on belul 
akArhany utasitAs irhato, ill. egy utasitis tobb sorra bonthato. 
Fontos szerepe van azonban a szofcdz-karakternek annyiban, hogy 
egy kulcsszot nem valaszthatunk szet szdkdzokkel, es ket szo 
kozott mindig ketl allnia legalabb egy szokoznek. 

A PASCAL-ban az utasitasok kozott a ";" karakternek kell 
allnia. Ez alol kiv^tel az END es az UNTIL /Id.kesobb/ 
kulcsszavak elott alio utasitis /Id. meg az IF ... THEN ... ELSE 
utasitast !/ 

A program veget az t/BR' jelzi, igy ez a programon belul sehol 
mashol nem for du I hat el*. 



A kovetkezo reszben sor kerul a PRIMO PASCAL reszletes 
ismertetesere. Ebben mAr fel fogjuk hasznalni a fentiekben 
ismertetetteket, ezert annak az Olvasonak, aki a PASCAL nyelvvel 
csak most ismerkedik, ajAnljuki hogy mig azokat meg nem ertette. 
ne haladjon tovAbb. 

/Az alapok elsaja.tit5s3.ho2 ajAnljuk meg az Irodalomjeqyzokbeu 
felsorolt muveket./ 



4.2. A PRIMO PASCAL Altai ertelmezett szimb6lufnok 

Ebben «. fejezetben isrnert^tjuk a PPIMO PASCAL -ban haszn&lhato 
fiiur* definialt konstansokat, tjpusokat, fuggvenyeket es 
eljArAsokatj valanint a programban hasznALhato utasitAsokat 
tcfilhaU i5Ukr ' M r * 5ZteteS ossiefoglalo a 3. Fuggelskben 



4.2.1. Konstansok 

A konstansofc dektarALAsAnak modjAt az elozo fejezetben Uttuk. 
onstanskent d*finiAlhatunk tetszoleges tipusO adatot . 

pi. : CONST SZAM = 12; 

BETU = 'Q'; 

SZO = 'BETUK'; 

IGAZ = TRUE; 
stb. 



Elore definialt konstansok: 

MAXINT = 32767; A PRIMO PASCAL-ban tArothato 

legangyobb egesz t ipusii pozitiv szAm. 

TRUE, FALSE BOOLEAN tipus; TRUE = logikai igaz 

FALSE = logikai hamis 



NIL 



pointer tipus; NIL az a pointer, amely 
semmelyik elemre sem mutat. 
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4.2,2. Tipusok 

A PRIMO PASCAL a kovetkezG tipusokat £rtelmezi: 



INTEGER : 
egesz szAm, melynek 6rt£ke -MAXINT es MAXINT koz* eshet. Ha 
va lamely ss Am it As sorAn ennel kisebb, ill. nagyobb erteket kapna 
egy egesz tipusii vALtozo, a program flit Asa "Overflow" 
/ =tulcsordulAs / hibauzenettel megszakad. 



REAL : 

valos szAm. A legnagyobb valos szam 3.4E3B /=3.4 * 10 ** 38/. 

A valos szAmok kitevojet a PRIMO PASCAL elojel + abszolutertek 
formAban AbrAzolja. Ezert az AbrAzolhato legkisebb abszoluterteku 
valos szAm 1 * 10 * * -38, ami - sok raAs rendszertol elterfien - 
nem egyenlo null Aval! 



FigyeLjunk arra is, hogy a gep szAmAbrAzol Asi modja miatt a valos 
szAmok kozott az egyenloseg csak igen ritkAn teljesul. Ezert, ha 
ket valos szAmot hasonlitunk ossze, a 0.001-nel kisebb elteresek 
eseten mAr erdemes egyenlonek tekinteni 6!-.et. 



BOOLEAN : 
logikai tipus, erteke TRUE vagy FALSE lehet. £rtelmezettek 
logikai miiveletek: is, melyek eredmenye szinten vagy TRUE vagy 
FALSE Lehet. 
Pi.; 1 =2 *rerimenye FALSE 

— 5.1 > = 2.003 eredmenye TRUE. 



CHAR : 
karakter tipus. Az ilyen tipusu vAltozok £rteke egyetlen ASCII 
karakter lehet. Karakterkonstansokat a PRIMO PASCAL-ban 
'aposztrofok kozott' adhatunk meg, Az ilyen konstanson beluli 
aposztrofot ket, kozvetlen egymAs utAni aposztroffal adhatunk 
meg. Ores stringet CHR( ) - vel irhatunk le. 



Felsorolt tipus : 
a PASCAL nyelvben egy tipus definiAlAsa azt jelenti, hogy 
megadjuk azon elemek halmazAtj melyeket az adott tipusba tartozo 
vAltozok felvehetnek. Az eddig rnegismert tipusoknAl a tipus neve 
eleve meghatArozta ezt a halmazt. 

A PASCAL nyelv lehetoseget ad arra, hogy a prograrnozo maga 
megadja a tipusba tartozo vAltozok Altai felveheto ertekek 
haltoazAt, igy definiAtva egy uj adattipust, amit aztAn tetszes 
szerint alkaUtazhat a tovAbbi deklarAciokban. 

Egy ' felsorolt tipus definiAlAsa a tipust alkoto elemek 
megadAsAval tortenik, Ezen konstansok felsorol Asszeru. megadAsa 
miatt nevezzilk az ilyen adattipusokat /t.i. ahol a tipus 
elemeinek halmaza egyertelmu.en felsorolhato/ felsorolt tipusnak. 

15. 



VegyCtk eszre, hogy etAre definialt felsorolt tipus az INTEGER, 
CHAR es a BOOLEAN tipus is! 

Tegyuk fell hogy valamely feladatunkban szuks£g van a het 
napjainak feldolgozasara. Ekkor. celszeru a kAvetkezA adattipus 
definialasa: 

TYPE NAPQK = HETF0,KEDD,SZERDA,C5UTDRT0K,PENTEK,SZ0M&AT,VASARNAP 

A peldabol kiolvashatA a felsorolt tipus deklaralasanak 
szintakti kaja is. 

A tipust alkoto szimbAlumqk felsarolasanak sorrendje igen 
lenyeges tenyezo: ennek alapjan ertetmezhetAk koztuk az 
osszehasonl itasi rnuveletek. Minden egyes szimbolurnhoz a 
felsorol&s sorrendjeben hozz&rendelhetA a 0,1,2... szamsorozat. 
Valamely konstanshoz az ily mAdon hozzirendelt szam az adott el am 
sorszama lesz. Ennek alapjan nevezhetjuk e tipusokat sorszAwozott 
tipusnak. 



n 



r* 



/Sorszamozott tipussal eddig haromfelevel talalkoztunk: ilyen az 
INTEGER, a CHAR es a BOOLEAN tipus, Ezeknel a felsoroLhatA elemek 
sorrend szerint: 

-MAXINT, -MAXINT+1, ... ,-1,0,1,2 ... MAXINT; CHAR tipusnal az 
ASCII karakterkeszlet sorrendben; BOOLEAN tipusnAl pedig a 
sorrend: FALSE, TRUE ./ 

Fgy a peldankban latott szimbAlurfiokra pi. 
HETFO C KEDD < SZERDft < VASARNAP . 



Inter vallum tipus : 
A;: elAzAekben latott felsorolt tipushoz - hasorrloan ' az 
iniervallum tipus elemeit is a progranozA naga definiaLhatja, 
Ezen elemek azonban egy Mir definialt vagy eleve definialt 
felsorolt tipus eleneinek reszhatmazskent adAdnak. 

PI. ha programunkban mar szerepelt a net napjainak fentiekben 
latott mAdon torteni deklaraciAja, a tovabbiakban egy valtozAnak 
a kovetkezA tipust adhatjuki 



VAR MDNKANAPi HETFC . . PENTEK 



Igy a MUNKANAP nevft valtozA a kovetkezA ertakek valamelyiket 
veheti feli HETFO,KEDD,SZERDA,CSUTQRTOK, PENTEK. 

Termeszetesen az igy deklaralt interval lumtipus is sorszamozott 
lesz, a sz6 fent leirt erteUteben. 

Tovabbi pel dak interval lumtipusokra: v i cc fi Y fi R 6 ^ 

TYPE SZAMOK = 1..23; « u " j.U.t. 

BETUK = 'A' .. 'T'i ftRANT 



VAR : BETUKi Ctfttftfil 



CC : »C .. 'H's stb. 






TAwibAk deklaralasanak a PASCAL-ban bA lehetosegei vannak. 
MegadhatAk tetszoleges tipusok tombjei , az indexek b&rmely 
sorszatnozott tipusd v&ltozAk kozdl kerulhetnek ki ) nines 
korlatozAs a tombok dimenziAsz^jjiira sem. 
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Egy tomb dekLar5.Us5.nak modja a kovetkezo: 

ARRAY index OF tipus; 

ahol "index" valamely sorszAmozott tipus lehet, ebbol tobb is 
megadhato veszszovel elvAlasztva - igy adhatunk meg tobb 
dimenziis tomboket; "tipus" pedig bArmely egyszeru vagy osszetetfc 
tipus lehet. /Jgy lehet pi. "tonibok tombjet" deklarAlni./ 

/"osszetett tipusnak" nevezzftk a tomb, RECORD es SET tipusokat 
/ertelmezesiik pAr sorral kesobb/, ugyanis ezek egy egesz 
adatcsoport milyenseget definiAljAk szemben a tobbi, "egyszeru 
tipussal", rnelyek csak egyetlen adatra vonatkoznak. / 

A tomb valamely . elemere ezek utAn a tomb neve utAn szogletes 
zAr6jeLek koze irt index/ekk/el hivatkozhatunk. 

/Megjegyzes: iaAs PASCAL vAltozatoknAl talALkozhattunk a PACKED 
ARRAY tipussal, mely tomoritett mddon tArolja a tomb elemeit - 
ily modon rnemoriateriilet megtakaritAst erhetunk el. A PRIMO 
PASCAL-ban - bAr a PACKED kulcsszo ertelmezve van - jelentosege 
nines, mert a tomoritheto adatokat sieve igy tArolja./ 



RECORD: 
Ez a PASCAL egyik U-ghate! onyabb adatstrukturajs. A RECORD egy 
kulonbozo fcipusokbol osszeillitott "adatcsomagot" jelentj rnelyre 
egy newel egyiitt, ^agg elainenkent kiilon-kulon h; vatltozhatunki 
Kivel tehAt egy rekord is tobb mis adatot foglal ntagAbai 
hasonlos&got fedezhetunk fel kozte £2 5 tombok kecottj lenyeges 
kulonbseg azonban egyreszt as, hogy mig a tomb els-wei ittindig 
azonos tipusiiak, addig a rekord tetszoleges tipusof.-.t fogtaihat 
:==~^. misreazt periig ,v .. hog> -:• rskord elemeire c.zwiositovftt 
hivatkozhafcunkj mig egy tombnel ez az ii-ii;-:.. alspj&n tc-rtenik. 

PeldAuli ha valamityen esoport tagjairol kivanunk 

nyi IvAntartAst kesziteni, melyben egy szem£lynek tAroljuk a 
nevet, szuletesi idejet 6s he I yet 1 valamint pi. egy AUala 
befizetett penz6eszeget , akkor egy lehetseges adatstruktura a 
kovetkezo: 

/E peldAban szerepel nehany olyan elem is, nelynek reszletes 
ismertetesere csak a tovibbiakban keru.l sor , ez azonban new 
jelenthet nagyobb nehezseget a pelda megertesenel ./ 



TYPE SZUL = RECORD 

EV, NAP : INTEGER; 

HONAP, HELY ; ARRAY CI.. 103 OF CHAR; 
END; 
ALAK = RECORD 

NEVE : ARRAY CI.. 20 3 OF CHAR; 

S2ULETETT : SZUL; 
PENZE : INTEGER; 

END; 

VAR EMBEREK : ARRAY CI.. 100] OF ALAK; 



15; 



E peldAbol kiol vashatjuk a rekord deklarAlAsAnak szintaktikAjat 



re'kordnev = RECORD 

rekord_elemek: t ipusj 

END; 



A PRIMO PASCAL-ban ha egy azonositit felhasznalunk egy rekordon 
betG.li ugyanolyan nevu szimbtMurn hasznalata k*s6bb nem 
megengedett. /Ez termeszetesen csak az azonos szintu 

dektariciikra vonatkozik - egy szinttel lejjebb, peldaul egy 
eljarasban batran hasznAlhatjuk mar az 11 yen neveket is!/ 

Az iLy midon definialt rekordra a programon beluL ketfelekeppen 
hivatkozhatunk: vagy a teljes rekordra, vagy egy nteghatarozott 
elernere. /A 3. hivatkozasi lehetoseget - a WITH utasitast - a 
4.3. fejezetben targyaljuk./ 

Az els6 eset ertekad* utasitasokban, vagy parameter at adaskent 
/Id. kesobb/ szerepelhet, mig a masodik esetben az ily mftdon 
kijelolt valtoz* eppiigy kezelheto, mint barmely "kozonseges" 
vALtozi. 

PI. EMBEREKE 2 3 := EMBEREKC 4 ] ; 
EMBEREKC 3 3.PENZE := 123; 

/Mint itt lathato, a rekord egy elemere a rekordnev utan tett 
pont segitsegevel hivatkozhatunk: rekordnev. rekord elem / 



SET: 

Haimaz tipus, mely a matematikabdl isu«rt haimaz fogalom PASCAL 
progratibeli infigfe't IGje. Megadis&nak nodja a kovetkezo; 
azonosito - SET Of alaptipusj 

; '"' ">:-;■;.;" val^melj MT&zaKc: .'. '. f*p.,= I *!-.*{, =g; 
haUiaznak * PRIMO PASCAL-ban toaxinium 255 eieme Lehet. Igy 
letizhtt pi. SET OP CHAR; mely & teljes karakterk^szletet 
tartalmazza. 

Halrnazokat szogletes zarojelek koze k*U zirni. Haimaz tipusil 
konstansok kovetkezokepper. adhatok meg: al so-ha* ar. . felsA- 

hatir 

ahol a ket hater a haimaz tipusat alkoto sorszanozott tipus ket 
. el erne. 

Pel dak hatrnazok megadasara: 

C ] Ores haimaz 

C 1,2,3 3 

C 'A'.. •!• 3 

C 'C. '0', '1'.. '7' 3 
TYPE SZAMOK = SET OP 2. . 9; 

VAR H:SET OF 2,4,6,8, 10f 

E legut6bbi haimaz e tent el lehetnek peldiul: 

C 2 3 , C 6 3 , [ 8 3 

t 2,4 3 , C 4,10 3 

C 2,6,8 3 , C 6,8,10 3 stb. 

A h al ma z na k nem I eh e t az e I erne i r e k u. I on - k u. I on h i va t k o z n i . 

Koztftk a kovetkezo muveletek ertelmezhetak: 
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: halmazok egyenlosegenek vizsgAlata; 
<> : halmazok kiilonbozosegenek vizsgAlata; 
<= : vizsgAlat, hogy valamely halmaz reszhalmaza-e 

halmaz unknak; 

IN : vizsgAlat, hogy adott eLem eleme-e halmazunknak; 
+ : halmazok egyesitesej 

: halmazok kiildnbsegenek kepzese; 

* : halmazok kozos reszenek kepzese. 

Az elso negy nuivelet eredmenye BOOLEAN, mig az utolso hArorne az 
adott tipusu halrnazvAltozo. 

PI. az elozi pelda H halmazAra: 2 IN H eredmenye TRUE 

[2,4] <= H eredmenye TRUE 
Lesz. 



Pointer /mutato/ tipus: 

Az eddig ismertetett tipusok nem teszik lehetove, hogy olyan 
azonos tipusti adatokkal dolgozzunk programunkban, ' melyek 
mennyiseget elire nem ismerjuk. 1 1 yen jellegu feladatot eddig 
csafc tombok letrehozAsAval oldhatunk meg, Metynek nagy hAtrAnya, 
hogy meretuket a deklarAU.sr.Al meg ketl adnunk, igy elofordulhat, 
hogy a "biztonsAg kedveert" jo nagyra definialt tombunk 
foloslegesen foglal el sol, helyet a memoritbol, vagy hogy egy 
Ojabb adat beirAsAval eLerjuk tAn.bar.fc Legftlso hatArAt, melyen 
vAUoztatru nem All modunkban. 



Az ilyen probtemAk megoldAsAr* letezik a PASCAL nyelvben a 
dinamikus adatszerkezetek LetrehozAsAnal; lehetosege, 

A dinamikus vAltozok legfontosabb jel Lernzoje, hogy reszukre 

ekkor fagial ii^ytt ;, gdj ;■ ;...>;,. '•;,.'-...- , ; :; -;. i ,; . . .-. ■.*.., 

prc-gramutssiti&t adunk, ANEW eljArAs./ tehst igy futAs kozben 
"szCUethetnek" vAltozoki szemben a kulonfele tipusokba deklarAU 
vAUoz6kkal, nelyek reszere a PASCAL mAr a forditAskor he I yet 
foglal a memoriAban. Ezert ik a program elejen a VAR 
deklarAciokban nem szerepelnek. Igy a rAjuk valo hivatkozis nem 
kozvetleilO I , tar,^, egy mutato /pointer/ vAL tozon keresztul , 
kozvetefcten Lehetseges. Ez a mutato egy speciilis pointer tipusu 
v4ltoz6i melynek erteke a dinamikusan lefcrehozott viltozo rne- 
monabeli cime. E pointervAl tozot kel I deklarAlnunk a program 
/vagy szegmens/ elejen. A deklarAcio annak Leszogezese, hogy a 
pointer ml I yen tipusu adatra mutathat. 

Dinamikus adatstrukturAkra leggyakoribb pelda a "dinamikus 
rekord". Az ilyen rekord elemei kozott AltalAban szerepel egy 
/vagy tobb/ olyan ponter, amely e rekord tipusAval azonos 
rekordra mutat. Igy ilyen rekordokbol lAncokat, fAkat stb. 
epithetunk fel, melyek futAs kozben kepesek meretuket 
vAUoztatm. Egy ilyen struktura tArolAsAhoz ket kulonAlloan 
deklarAU rel.ord-pointerre wan szukseg: az egyik a Line vagy fa 
le^elso elemere fog mutatni, a mAsik pedig munkavAl tozokent az 
eppen f elhasznAL tra. A Lanci fa vagy mAs dinamikus adatstruktur Ak 
letrehozAsAnAl szuksegunk van egy olyan pointer-konstransra, 
melynel; erteke a "sehova-sem-rnutat ". A PASCAL nyelvben ezt a 
szerepet a NIL konstans tolti be. 

Pointer tipusu vAltozok kozott az ertekadAs mu.velet es az 
egyenloseg /ill. egyenlot lense'g/ - vizsgAlat relAcio ertelmezett. 
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A PRIMO PASCAL sol; mas PASCAL verziAtdt elterfien nem engedi 
meg, hogy egy bizonyos tipusra r»utat6 pointer deklaralasa 
megelozze a tipus deklaralasati igy peldaul egy lane 
megvalosi tasa a kovetkezo adatstrukturan keresztul tortenhet: 



TYPE 



VAR 



LANC = RECORD 

SZO: ARRAY CI. . 103 OF CHAR; 
SZAM: INTEGER; 
KOVETKEZO: LANC; 
C i Ly modon deklarAlhatunk a LANC 
tipusu. adatra mutato pointert 
END; 
PTR = "LANC; 
ELSO, MUT: PTR; 



A 



ASCII W^ 1 - 94 



Prograr.iunkban peldaul a Lane masodik elemenek szam^rtekere 
kovetkezi modon hivatkozhatunk : 



MUT := ELSO". KOVETKEZO; 
A := MUT". SZAM; 



I MUT igy a rekordra mutat ) 
{ ahoL A INTEGER tipusa. ) 



A peldakbol a dinamikus valtozdk 
hasznalatinak szintaktikaja kiolvashato. 



deklar&lasanak 



es 



Az eddig:*;:bol az Olvaso t&thatja, hogy a PASCAL-ban a 
t jpasdektaraciA neha "csak" az eleganci&ij a jobb 
AttekinthetAsegat szolg? I ja r hasznalafca gyakran igen 

I eegyszeru.siti, kenyelme=s4 teszi a dolgunkatt de vannak esetek 
/pi. a dinawikus va.ltozofc eseteben/» mifcor tipusok deklaralasa 
t I keruAhet •■".'. en . 



4.2.3. Viltoz-fik 



A PASCAL progranban mindon vAltozd elso felhasznalas&t meg kell 
eloznie a valtozo deklariciojinaki melyben egyer telmuen wegadjuk 
annak tipusst. E tipuson a program folyar.\in vsltoztatni new 
lehet, es ha egy vsltozo olyan erteket kapr.a, rnely nem egyezifc 
r..eg tipusavalj a program futAsa hibau.zenettel megszakad. Ez atol 
kivetelt csak az INTEGER -- REAL tipusok kozti automatikus 
konverzio jelent, mely rnegenged olyan ert£kadast, melyben egy 
vat 6s tipusti valtozonak egesz tipusa erteket adunk. Ez forditva 
termeszetesen nem 5,11. 



A viltozok deklaracidjat a VAR kulcsszo vezeti be. Ez utin 
sorolandok fel a valtozok, £s kettospont utan a tipusuk. Egy 
sorban tobb azonos tipusCi valtozot is deklaralhatunk* tehat az 
alabbi rdszlet teljesen helyesi 



T yL f't 

«=*- &y /■■■ u &fv£ 



\ 






asi. 






VAR A,B,C 


INTEGER; 


D 


INTEGER; 


XrY 


REAL; 


E 


INTEGER; 



Ez alol kivetelt jelent - a standard PASCAL-tol eltorien - a 

tombcik deklaralAsa; a ket tombot a PRIMO PASCAL csak abban az 

esetben tekint azonos tipusunak. ha azokat egy sorban 
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deklarAttuk! 

Igy a kovetkezo esetben ATOMB 6s BTDMB azonos tipusO. lesz: 

VAR ATOMB, BTOMB: ARRAY CI.. 10] OF REAL; 

• • • 
BEGIN 

ATOMB: = BTOMB; C Igy ez az ertekadAs vegrehajthato. ] 

■ > ■ 
END; 

mig a kovetkezo peHdAban a k£t tomb nem lesz azonos tipustir igy 
pfeldiul nem hajthato vegre koztu.k kozvetlen ertekadAs: 

VAR ATOMB : ARRAY CI. . 101 OF REAL; 

BTOMB : ARRAY CI.. 10] OF REAL; 

BEGIN 



ATOMB: =BT0MB; Ez esetben forditAskor * ERROR * 10 

hibaiizenetet kapunk. 



END; 



Tobb dimenzios tomb deklarAl AsAnak formailag ket lehetosege 
van; 

C:ARRAY C 1..8] OF ARRAY I 1. .83 OF CHAR megegyezi k a 
CrARRAY C 1..8, 1..8 ) OF CHAR ket dimenzios tombb«l 

A PRIMQ FA5CAL lehetove teszij hogy - at-tol fugcjetlenui , hogy 
c dektar Alls mil yen mid on to*" t^nt - prograrnon belul mindk^t 
■hi-dc-r, hivatl-'ozhatun!; £- toiui /alsiflcly el«Vn£r*. )t j; Zl',11'.'. c -.. 

C [ 1»1 J ugyanazon matrix ( l f : ) indexu. sterner* utal. 

Etterest jeLent a standard PASCAL-toli hogyha egy rekordon 
belul dekLarAltunk egy v&Ltozoti ugyanilyen nevii vAltozti tijboLi 
deklarilisa - a rekordon kivul is - hibihoa vezet. 

A PASCAL prograunyelv olyan nevek hasznALatAt engedi m*g, 
melyek az sngol ABC betujevel kezdodnek. ezt pedig tovabbi it yen 
betuk vagy szArnJegyek kovetheti k. 

Ez a nev lehet egy vALtozo, konstans, tipus, eljArAs, fuggveny 
vagy a program neve. 

A PRIMO PASCAL a nevek els* 10 karakteret veszi figyelembe. 

Meg kell emliteni, hogy az aLAbbi tipus bizonyos szernpontbol 
kituntetett: 

ARRAY C1..N3 OF CHAR; 

ahol N > 1. Ez az un. string /karakterL Anc/ tipus, bAr ezt a szot 
magAt a fordito nem ertelmezi. A karakteres konstansok is ilyen 
string tipusuak, N hosszal, es Allhatnak olyan ertekadAs jobb 
oldalAn., ahol a bal oldalon iyen tipusii karaktertomb taLAlhato. 
/Itt olyan konstansokrol lehet szo, melyeket a program CONST 
reszeben deklar Al tunk. / Minden azonos hosszCtsAgu string vAltozo 
azonos tipusunak szAtnit, tehAt - elteroen egyeb tombdktol 
koztuk ertekadAs akkor is vegrehajthatij ha nem egy bekezdesben 
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4.2.4. EljArAsok 6s fuggv6nyek 



A PASCAL program fel6pit6s6t tsmertetA fejezetben az olvaso mar 
megismerkedett az eljArAsok 6s fuggv6nyek fogalmAvali a global is 
6s lokAlis vAltozok jelent6s6vel , deklarAlAsuk modjAval. Most a 
fogalmak pontes ismertet6s6r*j n6hAny eddig nem emlitett 
bevezet6s6re f valamint a PR I MO PASCAL eLfire definiAlt 
eljArAsainak 6s fuggv6nyeinek leirAsAra kerul sor. 

Osszetettebb feladatok megoldAsAnAl el kerul net et Lenne vAlik 
^-~ programunk "alprogramokra" tortend lebontAsa. Ezeii alprogramok a 
feladat egy-egy r6szfeladatAt oldhatjAk meg, vagy lehetnek olyan 
AltalAnosan hasznAlt programreszleteki melyekre tobb helyen is 
5zuks6g van: ilyenkor alprogramunk szerepe megegyezik a 
programozAsban altalanosan hasznalt szubrutinok feladatAval. 

Egy program alprogramokra /szegmensekre/ bontAsa abban az esetben 
is indokoltp ha bizonyos szegmenseket csal; egyetlen helyrol 
hivunfc ;-'<eg. tehat nem szubrutin szerepe van; az alprogramok 
alkalfttazAsa nagymert6kben novel i programunk Attekinthetos6g<?t j 
lehetove teszi, hogy egyes r6szfeladatokat onAltoanj eg6ssk6nt >- 

old junk megj a program konnyen bovithet&ve valik stb. Nagyobb C3 D 

FAECAL rer.cfszerekndl oriasi elonyt jelenthet as, hogy a' ae fZ 

szegmentALt prograikot LeforditAsAt r6szU-tei;:ben ;=. vAgezhetjuki 
valamint egyes reszek kulonbteo prograniozoknak one ; itan 
! iadhstii-. 



fuggvenyek. A kefctij kozott a kulonbseg az ( hog} mig egy eljlrAs 
neve kizsrolag annak meghivAsArai aktivizAlAsAra szolgAl, ado'ig a 
fuggveny neve efoellett 6rt61:et is k6pvisel: a fuggveny 6rt6k6ti 
melynek tipusAt a fuggveny dekaraciojiban meg kell adnunld 
konkret erteke pedig a fuggv6nyen beluli annak meghivAsakor kerul 
ki 57 Ami tAsra. 

Mindk6t tipusu alprogramnak szuks6ge lehet olyan adatokra, 
melyeket a szegmens meghivAsakor a hive kornyezet aktuAlis 
vAltoz6inak 6rt6ke fog meghatArozni. Ezen adatok felhasznAlssAra 
ketfele lehetoseg van. Az egyik a globALis vAltozok hasznAlata, 
tehAt azon vAltoz6k6i melyeket a szegmensen belu.l nem deklarAlunk 
ujra - hiszen egy szegmens korlAtozAs nelkut hasznALhat magasabb 
szinten deklarAlt adatokat. Ez a modszer azon ban igen gyakran 
hAtrAnyos lehet: ha pi. egy fuggv6nyt sok helyen hivunk meg, 
korulmenyes volna a fuggv6ny bemeneti param6ter6t /vagy 
param6tereit/ a hivAs elott mindig egy bizonyos vAltozoba beirni. 
E neh6zs6g kikuszoboles6re hoztAk I6tre a PASCAL programozAsi 
nyelvben a param6terek AtadAsAnak Lehetoseget. 

Ez formailag a kovetkezot jelenti: egy eljArAs vagy fuggv6ny 
deklarAlAsakor annak fejl6c6ben az u.n. for mil is 
parameterlistAban fel kell tuntetnunk mindazon vAltozokati 
tipusuk megjelol6s6vel, melyek a szegmens aktivizAlAsakor 
AtadAsra kerulnek. E parameterek az alprogramon belul lokslis 
- fh- 



*=>?=. 
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PASCAL-ban az alprogramok k6tf6l6k lehetnek? eljArAsol 6s c/> <=> -a 






r- 



jelentessel birnak, ebbol a §zempontb6l mindaz ervenyes rAjuk 
nezvei amit a LokAlis vAltozokrol kor&bban eLmondtunk. trtekuk az 
eljArAs vagy fuggveny meghivAsakor azonossA vAlik a meghivAskor a 
for mil is parameter I istaba irt vAltozok aktualis ertokevel, tehAt 
rnintha ezek a vAltozok "AtadnAk" ertekuket a szegmens 
parameterein&k, 

PL.: ... 

PROCEDURE ALPGM (2 VAR A,B : INTEGER; X : REAL; 

VAR C : ARRAY CI.. 8] OF CHAR ) ; 
BEGIN 

X := A/2; 

A := A»2; 

B := A+2; 

C := 'SZOVEG '; 
END; 



BEGIN { foprogram > 



I? := 5; W ;= 9Sj Y :- 22.222; 
S2Q \^ 'ABCDEFGH'; 
Q ec M egesz, Y REAL, SZO p*dag ARRAY 1..8 GF CHAR 

ti pusO vAltozo 5 

ALPGM ( Q,M,Y,S:C ! j 
O Y " ---222 maradt ! 



r^ 



5ZG = 'SZOVEG ' ) 



END. 



Ebben a peldAban az ALPGM eljArAs formalis parameter list A jAban 
felsoroLt vAltozok at bet csoportra bonthatjuk: az A, B es C 
vALtozokat a VAR kulcsszo elozi fii*g, mig ez az X elott nines. 
Azok a parameterek, nelyek *lott nines VAR, az eljArAsnak csak 
bemeno pararneterei lesznek, az eljArAsbol visszaterve ertekuk 
vAUozatlan mar ad /*z peldAnkban az Y vAlfcozcV. Ha for mil is 
parameterlistAban egy viltozd elott szerepel a VAR kuLcsszoi * 
vlltozo a szegnensnek kimeneti vALtozdja is lesz» tehAt erteke a 
szc-grnensbol kilepve az ott kapott ertek lesz /Q, V, SZO 
vAltozok/. 

PeldAnkbol is LAthato, hogy egy szegmens atadott pararneterei nek 
azonositAsa a formAlis parameterlistAban elfoglalt helyuk alapjAn 
tortenik. TehAt pi. a fenti eljArAs ALPGM (Q,Y,W,SZO> ; formAban 
torteno hivAsa szintakti kai lag hibAs, hiszen az eljArAs 
dektarAlAsakor a formAlis parameter Lista mAsodik helyere egy 
egesz 'tipusO. vAltozot irtunk, itt pedig mAsodikkerit egy REAL 
szAmot adnAnk At. 

MAr e fentiefcbol is kovetkeziki hogy a szegniens dektarAlAsakor 

-2^ 
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Irt paramiterekkel „,egegy«i ntaft ^ "P"** ■«»*«* kell a. 
alprogram minden hiviiakor atadni . 

Mint .«ar »Ht«ttU. a fuggvinyek csak annyiban kulonboznek az 

vAltozdval rendetkazfi fuggvenyek definiALAsAra. 
LAssunk egy peldAt: 



FUNCTION KOB ( X:REAL ) :REALj 
C a fuggveny bemeneti parameter* es 

*rtake egyarAnt vaL6s szAm lesz ) 
BEGIN 

K0B: = X * X * X; 
END: 



BEGIN 



Y:=KOE( 2.14 



ffiprograrn ) 



). c Y REAL vAltOZ* ) 



END. 



Vioyazzunk arra, hogy ha a fuggv f nyen belul a faggv*„y neve - 



C=c 



ertekad* 



utasiUs bal otdalAn szerepel. hanem pi - jol 
o^aUn is.'vagy egy IF utasitAsban S tb., a: a fuggv*ny rekurziv 

^tKnk'^sz^t": 1 hogy a faggv.ny n = -a - 9 - 
lelUottftl kovetkazoen - legalAbb egy *rt*kad6 ***i*« bal 
SdilS szerepelni* kell. A fuggv.ny "szabAlyos ^vAsa ed g 
a- ielentii hogy a fuggvany neve a szegmensen kivu szerepei 
"lJ!lrklf#J«Sb.n, *5«H«n ttLJ« para m *tarUstAjAval. 

Elofordulhat, hogy programunk strUktj&rAjf S^.^ 1 ^'^ 
elkeraihetetlen pi. egy eljArAs hivAsa olyan halyen, amialMt 
deklarAciojAra meg new kerulhetett sor . 

Erre a megoldAst a FORWARD dir*ktiva jelenti. 



?f. 



PI.: 

• • • 
PROCEDURE ELJ1 < A,B : BOOLEAN) ; FORWARD; 
{ jelzes, hogy az ELJ1 eljArAs definiAlAsAra a kestibbiekben 
kerul sor. Itt kel I azonban megadnz a for mil is 
parameter I istAt . ) 

PROCEDURE ELJ2; 
BEGIN 

ELJ1 TRUE, FALSE ; 

END; 

PROCEDURE ELJlj 

C itt kovetkezik az eljArAs tulajdonkeppeni LeirAsa. 

Itt mAr nen szabad kiirni a for mil is parameterlistAt '} 
BEGIN 

ELJ2; 

END; 

stb. 

Lenyegesp hogy az i ly m6don torteno "el&re deklarilasnak" e= a 
£:-*M-rtii'i5 i4nyl*g*s deklsrilisAnak ugyat-.elnbari a tjlokkban k*ll 
c-Lhet yezkwdni*. 



4.2,4.1. ELore definiAU *ljAri&oh 

a/ Ki- e= be-viteli eLjArAsoi; 

WRITE pWRITELN ( pi, p2, ..., pn ) 

Ezer. fctjArAsok segits-gevel irathstunk ki vALtozokati 
konstaiisolft, szoYegeket a kepernyore. A WRITE eljArAs sorban 
kiirja az aUbb reszlet*z*tt fcrwitukban az adatokat. A NRITELN 
eljArAs ettol csak annyiban kuAonbozi k, hogy a lair As utAn egy 
sort einel. /Igy egy URITELN; ut as it As egy soremelest eredmenyez./ 

Ezeknek az el jArAsoknak a parameterei new kdtott szAmuakj £s 
nem kotott tipusCiafc abban az ertelernberii ahogy a programozo Altai 
definiAlhato szegmensek parameterei kotottek. /Ebbol a 

sz empontbol tehAt a WRITE eljArAs egy igen ku I on leges eljArAs./ 
WRITELN ( A,BiC, ) tehAt azonos hatAsil a WRITE < A > ; 
WRITE ( B I [WRITE ( C ) ; URITELN; utasi tAsokkal , ezert a 
tovibbiakban csak a WRITE ( pi ) utasitAssal foglalkozunk. 

Itt pi a kovetkezo formAju. lehet: 





e 


vagy ( 


e : el 


vagy 


e : el : e2 


vagy 


e : el : H 


ahol e 


a kiirando kifejezes, 


vagy log 


ikai kifejezesi de 



mely lehet karakter, cgeszt valos 
lehet fcarakter line ill. szoveg 



aposztrofok kozott. 

A tovabbi tagok nem kotelez*ek, segitsegukkel a kiiras formatuma 
hatArozhato meg. 

el a kiirando szAm vagy szoveg teljes szelessege lesz; 
/amennyiben el nagyobb, mint a szAm jegyeinek szamai az els* 
szamjegy elitt a szukseges mennyisegu sziokoz karakter jelenik 
meg. Egesz szamok kiirAsAnALj ha el kisebb a szAmjegyek 
szamanalr csak az utols6 el szamjegyet irja ki a program, REAL 
szimok eseten pedig ha el kisebb a szam AbrAzolAsahoz minimAlisan 
szukseges helynel, a kiirAs az alapertelmezes szerinti, 12 
karakteres formAban tortenik./ 

e2 jelenlete eseten a val6s tipusu sz&m fixpontos formAtumban 
kerul kiirAsrar ahol e2 a tizedes jegyek szAma lesz; 
/e2 = esetben a kiirt szAm a REAL ertek egesz resze lesz./ 

a negyedik tipusu formitumot egesz szAmok kiirAsinAL 
hasznALhat juk. Kyenkor a szAm hexadecimal isan kerul kiirAsra. A 
hexa szAm szelessege ez esetben is el Lesz. 

PI.: WRITE 1490: 4:H ==> 05D2 

WRITE 0.32E2:6:2 ==> 32.00 

WRITE 42.1234:8:3 ==> 42.123 

WRITE -2. 45&3E14: 9 ==> -2. 45E+14 

Lehetiseg van karakterek, stringek /= ARRAYf 1. .NJOF CHAR /, 
valamint BOOLEAN Grtekek kiirAsAra is; ez esetben is megadhatA az 
el hosszusigi rosly ha till nagyi bevezeto space-ek kerfitnel: a 
szoveg ele, ha tul kicsij a kiiris alapertelmezesben tortenik:. 

Pl.i WRITE i ' SZOVEG'.) ==: SZQVES 

WRITE ( ' SIOVEG'slO ) «; SZOVEG 

WRITE ( 1 < 2 ) ==) TRUE 

'-'■ig^C: e-zrrrt hogy mas programed:,: nyelvelko; el'.entttK-n 
PRIMG PASCAL karakter c?. ki ir AsnAL is jobbra igazitAst vegez. 

H* a CHRU6) - vagy editorbol a CTF: P - karsfctevt iratjuk ki i 
arniak speciAlis szerepe van: az azutAn kovetkezfi mind*n kiirAs 
nyotntatora tortenik a kovetkez* ityen karakter kiirAsAig. 

Ha a gephez nines nyomtato csattakectatva, a gap vegtelen c ) 
ciklusba «sik> melybol csak a RESET gombbal vehetju.k ki. 
/Ld. meg a forrfito P opciojAt is!/ 



PAGE 
Ezen eljAras a kepernyo torleset eredmenyezi . 

READ , READLN ( pl,p2, ...,pn ) 

Ezen eljArAsok segitsegevel olvashatunk be programunkba 
adatokat - a PR I MO PASCAL-ban a billentytizetrol . 

A READ, READLN eljArasok pararneterei vel kapcsolatban ervenyesek 
azok a, megjegyzesek, melyeket a WRITE eljArAsokkal kapcsolatban 
tettunk, tehAt itt sines korlAt a parameters!; szAmAra, nines 
szigoruan meghatArozott tipusuk, igy 6k "kulonleges" eljArisnak 
tekintendok. Mivel a READLN ( pl,p2,...,pn ) ; utasitAs 
egyenerteku a r . _ 



BEGIN 

READ ( pi ) ; 
READ ( p2 > | 

READ ( pn ) ; 

READLN; 
END; utasitisokkali /ill. a READ ( pi., pn ) ; 
ugyanigyi csak READLN nelkul/j a tArgyalAsnAl csak a READ ( pi > 
esetet r^szletezziik. 

Mind en karakter /betu ( szAm» karakter Lane/ met yet a program 
futasa kozben /egy READLN utasitAs keresere/ bebil lentyuzunki a 
PASCAL rendszer un. puf fer-teruletere kerul . A READ eljArAs 
mindig e pufferb6l olvas ki parameter/ei/nek meg tele 16 szAmu es 
tipusO adatot. A puffer aktualis karakterere, welyet tehat a 
legkozelebbi READ eljArAs be- fog olvasnii egy pointer mutat. Ha 
ez az aktuALis karakter egy RETURN /sor vege/, akkor az EOLN 
el6re definia.lt fuggveny erteke TRUEr ellenkez6 esetben FALSE. 
Mivel a puffer a program el indul Asakor egyetlen CHR(13) / RETURN 
/ karaktert tartalmaZi e fuggveny erteke ilyenkor TRUEi es minden 
READ eljArAs eredmenye CHR(O), Ores string lesz. 

A READLN eljArAs "kiiiriti" a puffertr a karakter-pointer t az 
elsfl pozici6ra Atlitja» es lehet6ve teszi, hogy a felhasznAli a 
bi I lentyflzetnH irjon a pufferbe. HatisAra as EOLN fuggveny 
erteke nindig FALSE lesz. A READLN eLjArAst k6vet6 els6 READ 
tehit f. READLN utin a pufferbe heirt karaktereket fogja beolvasni. 

A puffer ity m6don "reszletekben" is kioLvashato a READ ?T* 



bukkani az EOLN fuggveny erteke TRUE lesz, es a tovAbb: 
beolvasandi karakterek he I yen CHR(0)-t kapunk. 

A fentiek ertelaieben tehat egy olyan program mely v:sszairja a 
bebiUentyuzott karaktereketi a kovetkezfikeppen nezhet ki: 

PROGRAM ECHO; 
VAR C : CHAR} 
BEGIN 
REPEAT 

READLN; READ (Of 
WRITE(C) 
UNTIL C = CHR(O); 
WRITELN; 
END. 



Osszefoglal va: 

- Ha az eljArAs pararite>tere CHAR tipusi!i f as eljArAs egyszeruen 
beolvassa a a puffer kovetkez6 karakteret, es ez lesz a parameter 
erteke, 

- Ha a parameter tipusa string; az eljArAs mindaddig olvas be 
karaktereket a pufferbil, amig a beolvasott karakterek szArna meg 

new egyezik a tomb deklarAciijAban megadottal . Ha a beolvasAs 

— ~ 2 8 1- 



o f 



C3, 



etjsrAss&l. Ha pi. egy READLN-ra 6t karaktert biUenty0.ztunk be* 

£s a l.ovetkezo READ eljArAs parameter* egy CHAR tipysu vAltoz6j 

ez alkalomrnal a LegeLsfi beirt karakter lesz a vALtoz6 <=rteke-i a 

pointer pedig a mAsodik karaterre fog rAutatni. As r:.: kt</«t4 to 1 ^ _^ 

READ eljArAssal tehit beolvashatjni a tovibbi n*gy karaktert. 

.<-_;. v^> READLN-nal igrafctsdhctjuk i puffer fcltolts^t. 



CO 



CO 



<=> -a: 



He a READ eljlrla kozben a pointer egy RETURN karakterre wo °= 



LO 



kozben egy sor-v^ge karaktert talal, a string minden tovAbbi 
eleme CHR(O) karakterrel lesz feltoltve. 

- Egesz vagy valos tipusu parameter eset£n minden sor-vdge £s 
szokoz karaktert figyelmen kivul hagy» es az ezutAn kovetkezo 
szAinot beolvassa a pufferbol; egesz szarn eseten az else nem-szAm 
karakterig, valos eseten a szAmokat koveto p on tot vagy E 
/^exponens/ karaktert is beolvassa r de ha ezeket nem koveti 
tovabbi szamjegy, a futas "Number expected" hibauzenettel Leal I. 
Ugyanez tortenik akkor is r ha a beirt szAm tul kicsii vagy tdl 
nagy, vagy ha az elso karakter nem szarrii vagy ' + ' vagy '-■ 
elojel. 



b/ Egyeb elore definialt eljarasol: 



^4EW ( p ) 



Az eljArAs parameters egy rnutato tipusu vSltozo. Az el jar As a p 
pointer tipusAnak megfelslo dinarnikus vAltozit hoz letre a 
riK'ftiiriibsn. F erre a meft , .criaterul*tre /cvn a /At tec or s/ f re; 
nutatni . 

A: eljArAs szAniAra kozombos p bertieni fTtvke. 



MARK ( p J 

£_ az eljArAs a dinarnikus viltoztik tArolAsArs hasznAit "halom" 
helyzetei merit i el a p pointer vAUozofaa. A RELEASE eljArAs j: 
Uy nrtdon beAUitoU p ertekig fogja felszat'ftditnnj a halcfc. 



heiy:*tet, 



0&.W- 



RELEASE < P ) 



Hatssara a vALtozdhalom helyzete arra az ert4kre ell vissza, . ^n \%.®^' 

amit a P az utolso MARK eljArAs soran kapott. Igy tehAt az azota W ?\Q 

NEW eljArAssal letrehozott dinarnikus vAltozok fcorlddnek! 



"TT 



INLINE ( pl f p2i...rpn > 

Ez az eljAras lehetove teszi, hogy PASCAL prograrnunkba Z80 g£pi 
kodii utasitAsokat ilUsszu.nk. Pl,p2. .. a beirandA utasitssok 
kodjai; lehetnek decimAlis vagy hexadecimAUs szAmok - ez 
utobbiak megkuldnboztetesere, mint inindenutt a PRIMO PASCAL-ban a 
tt karakter szolgAU nielyet a szAni ele kel I irni. A forditoprogram 
a program LeforditAsakor az INLINE utasitAsban irt 280 
utasitAskodokat a program aktuAlis helyere szerkeszti be. 

PL. INLINE ( #C3, 00, 00 ); 



Ezen eljaras a programba a JP Z80 utasitast teszi be, melyet 
vegrehajtva visszakerultink a PRIMO BASIC rendszerebe. 



USER ( P ) 

Ez az eljaras a P cimen k 62 dodo gep kodu program hivasat 
eredmenyezi . A rutinnak RET utasitassal kell vegzodnie, fts new 
ronthatja el az IX regiszter tartalmat. Mivel a PRIMD PASCAL az 
egesz szamokat kettes kornplemens kodban abrazolja, a 32767-nel 
nagyobb cimeket negativ szamokkal erhetjuk el. E kenyelmetUnsdg 
kikeru.lese vegett is ajanlatos a P cim hexadecimal is ertekenek 
hasznaiata. 



HALT 

Ezen eljaras megszakit ja a program futisat a kovetkezo 
uzenett&l: "Halt at PC=nnnn", ahol mm\-> az a hexadecimal is 
mem6ri acini, ahol a futas rnegszakadt . 

Ezt az eljarast elsosorban a programok hibakeresesesnel 
hasznalhat juk. 



POKE ( cinii kifejezes ) 

Ez €iz eljaras hasonlit a BASIC azonos nevfr utasitasiras cim 
■imrnel kezdodien leteszi a kifejezes firt*k£t a PRIMO memoria jibs. 
Az eljaVasbsn ciu *gy eg4»z tipusi kifejeres, Icj ftjezes periig 
akirmilyen tipusu *leh* J v ( EFT kiv£tel evel . Igy lehetseges AS"! 

-'"''•'"■• ■ - ■ ■ < ■'•■ '■■ •. ■ ■ J. ; . - £ ;■ : '. .: . . . c ; ■; "!. j f t jez ."*£' 

tipusa pi. REAL, sz eltirolt 5za.rn ann&k A bytc-on 4br*EOlt ertil.e 



U-,r. 



TOUT ( nev, kezdocim, hossz ) 

Ez az eljaras rmidat ad adatok k*z«ttan vato tirolasara. It-; a 
"n£v" tipusa ARRAY C 1..B ] OF CHAR: , ez lesz a kiirt file neve. 
Az el jar As "hossz" darab byte-ot visz ki "kezdocinT-tol szamitva. 
E ket parameternek egesz tipusunak kell lenni. 

Az el jar is t valtozok elmentesere az ADDR es a SIZE fuggvenyek 
segitsegevel hasznalhatjuk: pi. az X vAltozo elment£se "IKSZ" 
neven a kovetkezokeppen tortenhet; 

TOUT ( 'IKSZ ' , ADDRt X >, SIZE (XJ ) ; 



TIN ( nev, kezdocim ) 

Ezen eljaras a TOUT eljarassal elmentett valtozok beolvasasira 
szolgal. "nev" es "kezdoc im" tipusa megegyezik az ott 
latottakeval. 

Tehat peldaul az elozo pontban elmentett valtozo beolvasasa a 
kovetkezokeppen tort en i k: 

TIN ( 'IKSZ ', ADDP( X >> ; 

_3o- 



J 



<~ 



^ 



OUT (• P,C > 

Ez az utasitas lehet>lve teszi a Z80 portok kozvetlen 
hasznilatAt. Hat3.s5.ra a C karakter a P egesz kifejezes Altai 
meghatarozott portra keru.L. / P < 65536 / 



4.2.4.2. Elire definialt fuggvenyek 



a/ Beolvasasi fuggvenyek 



EOLN 



E logikai fuggveny erteke TRUEi ha a kdvetkezi beolvasandi 
karakter egy "sor-vege" karakter / RETURN, = CHR ( 13 ) /, minden 
mis es«tb*n FALSE. /Ld. READ, READLN eljarisok./ 



INCH 

E fuggveny hivasa a bf llentyftzet letapogatisit eredMeny*zif ha 
van lenychwa bil ler.tyu, * fuggveny erteke a b*irt karakter j ha 
dine:,, ertil € CHR I J lesz. 



b/Adatiipus it&lakitti fugg>-&nyek 



TRUNC ( X ) 



A fuggveny eredwenys c,: egesz vagy val6s tipusu X parameter 
csonkitott egesz resze, tern.eszetesen INTEGER tipusu. 

Igy TRUNC ( 3.345 ) =3 

TRUNC (-1.234 ) = -1 



ROUND ( X J 

Itt X szinten REAL vagy INTEGER Lehet. A fuggveny erteke 
"kerekitett" erteke: az az egesz szarii, ante I y X-hez "legkozelebb 
All. 

PI. ROUND ( 3.4 ) = 3 

ROUND ( 3.5 ) = 4 

ROUND (-3.5 ) = -3 

ROUND (-3.6 J = -4 

— 3/ ^ 






r^ 



ENTIER ( X ) 

Ennek a fuggvenynek az arguwentuma valis vagy egesz tipusii 
leh*t» ert£ke pedig az a Legnagyobb *gesz szarn, mely kisebb vagy 
egyenli X-szel. E fuggv£ny hatasa pozitiv szamokra megegyezik a 
TRUNC fiiggvennyel . 

PI. ENTIER ( 8.9 > = 8 

ENTIER (-13.2 )= -14 



ORD ( X ) 

E fuggveny parameters valatiieLy sorszamozott tipusO. adat Lfchet. 
A fuggveny X ertekenek sorszamat adja rfteg f mety tipusanak 
deklaraci6jakor adidik ki. 

Igy ternieszetesen egy egesz szam ORD erteke rnaga a szariir 
tovabba p^Ldsul 

ORD CA') = £5 ASCII karakter erteke 



CHR ( X ) 

A fuggveny az egesz tipusft X-nek megfeleli ASCIj k<&d6rt£fc& 
karafctert adja vissza. /A f0.ggveny az X valtozii alsi byte-jit 
veszi figyelembe /MOD 25£. erteU-t/. N*gativ X eset£n a figyelembe 
vett ertfek a kettts komptftwens sz&nt alsi byte-ja tesz./ 



■.-,' Ar i taietiksj fCiggviriyefc 

A fcovetkezftkben i soei tetendft f&ggvenyek mindegyi kenek 
parameters e-gfrsz vagy valtis leheti ertdkuk p^dig nundsrikor REAL 
tipus&i 



ABS ( X ) 
itrtel:e X szam abszol0.t erteke. 

SGR ( X ) 
£reke. X szam negyzete lesz. 

SDRT ( X ) 
A fuggveny X negyzetgyoket adja eredmenyul . 

SIN ( X ) 3^_ 



r- 



r^ 



Eredmenye X radia.nban vett ertekenek sinusa. 

COS ( X ) 
Eredmenye X radianban vett ertekenek cosinusa. 

TAN ( X ) 
Eredmenye X radiinban vett ertekenek tangens*. 

ARCTAN ( X ) 

E fiiggveny annak a szc-gnek radianban vett erteket adja 
eredfiienyul i melynek tangense X. 



EXP ( X ) 
A fuggveny eredmeny* e termessetes^ szim X-edik hatvarvya. 



r- 



LN ( X ) 
Fir. a fiiggveny X tonnes ret es /e/ alapu iogaritmusAt adje. meg. 

FRAC ( X ) 

E fuggveny X tortresret adja eredrn6ny0.li pontosabban mindig X- 
ENTIER(X)-*t. l'gy pi. FRAC ( -1.6 J erteke O.A less!!! 



d/ Egyeb fiiggvenyek 



ODD ( X ) 



A Logxkal fuggveny erteke TRUE, ha az X egesz fcipusu kifejezes 
erteke piratlan, FALSE, ha pSros. 



RANDOM 
E fuggveny egy es 255 kozdtti iX veletUnszamot ad eredmenyul . 



SUCC ( X ) 

X valamely sorszamozott tipusu lehet. .A fuggveny eredminye az 
X-et kov&tfi sorszamtl elero Less. 

PI. SUCC < 1 ) = 2 

SUCC ( 'A' ) = 'B' 
SUCC ( MAX INT >= -327&e kettes komplemens kid! 



PRED ( X ) 

E fuggveny az X sorszamozott tipusu adatot megelozo sorszamO. 
elemet adja eredmenyul . 

PI. PRED ( 2 ) =1 

PRED ( 'B' > = *A' 

PRED (-MAX I NT )= -3276B ! 



INF' ( X ) 

E fuggveny a: OUT etjaris "parjct"; btgi tsegevel a PRIMQ Z80 
portjairo'. tudunk b&olvasni, A f&ggveny erteke az X-edil. portvoi 
btolvavott byt* CHR erteke. 



a:^DR ( x ) 

r* 

A fuggveny erteke X vattczo memoriabeli cime lesz. 

SIZE ( X ) 

Ez s fuggveny az X vsltozo altal eLfoglalt memoriaterulet 
nagyso.gat adja meg byte-okban. 



PEEK ( X, tipus ) 

Er a fuggveny a POKE eljaras forditofctja; eredmenye egy "tipus" 
tipusu ertek, mely az X ewgesz szamu kifejezes altal mutafeotfc 
memoriae imrol kerul kiol vasssra. 

Tehat pi. PEEK ( nnrthj INTEGER ) eredmenye egy egesz szaflif 

mely nnnn /hexadecimal is/ cimu. mem6ria-byte-on 
tarolt ertek; 

PEEK ( MWinirn, ARRAY C 1..8 ] Or CHAR ) eredmenye 
egy 8 erteku karaktertdmbi melyben az egyes 
karakterek az mmmm cimtol kezdve sorban 
kiolvasott ertekeknek megfelelo ASCII 
karakterek. 



or co 
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LU - 



r^i 



CO* 



l/"> 






'1.3. A programban hasznalhatd utasitasokr mftveletek 



4.3.1. Operatorok a PASCAL-ban 
operator jelentese operandusok tipusa frredmftny tipusa 



a/ Aritmetikai operatorok 



+ 


osszeadas 


- 


kivonAs 


* 


szorzas 


/ 


QSZtiS 


DIV 


egesz oszta.5 


MOD 


maradekkepses 



egeszj valos 
■I 

c-gesz 



eg£sz, valis 

ii 

valis 
eg£sz 



z^ 



b/ Logikai operatorok 



NOT 


n eg a I as 


OR 


logikai vagy 


AND 


logikai is 



logi kai 



I og i kai 
ii 



c/ HaLrcaz opc-ritorol 



-i hsldiaz egyesitcE 

h a I ft.az k ii- 1 oil b = '; g 
* metszet 



azoi'ios hal maz t ; pii?-c»k 



d/ Relicios cpftr&torok 
= egyenloseg 



> 

>- 

IK 



elei.u : string 



barn.ely elems i 
mutato, halnazj 
rekord 
ftgyenL6tlens4g 
kisebb 
nagyobb 
kisebb vagy egyenLfii elemii string 

halmaz 
nagyobb vagy egyenlA 

ha Unas elenie bal : sorszaftiozott 

jobb: ennefc halmaza 



Logikai 



O 



55"- 



4.3.2. A PASCAL utasitisai 



E fejezetben ismertetjufc a PASCAL programban hasznAlhato 
utasitAsokat. Ezek egy reszet - vagy hozzAjuk igen ha son I ok at - 
megtalAljuk szinte minder magasszintfi programnyelvben, de vannak 
olyan utasitAsok is, melyek a PASCAL nyelv sajAtossAgai ra 
epulneki &s ezext a legtobb programozAsi nyelvben hozza hasonlot 
sc'd. tat Alhatunk. 



a/ Az ertekado utasitAs 

Formaja: vAltozo := kifejez^s; 

Hatasara "vAltozo" erteke - fiigget lend elozo ert£ketil - a 

"Icifejezes" kiertekelfis&bol adodo eredmeny lesz. Ezen eredra&ny 

tipusAnak meg kel I egyeznie "vAltozo" tipusAval. Ez alol ket 

kivetel van: ha "vAltozo" REAL tipusii "kifejezes" lehet INTEGER 
is, ilyenkor a tipuskonverzio automat ikusan megtortenikj masreszt 

az egyik i Lyen tipus lehet a mAsikbol szartnaztatott 
interval lumtipus. 

a "kifejezes" ki*rt6fc*U&ta*k sorrendje a kovetkezo: 

1. fCiggvenyek kierttfcelese 

2. * , /rDIV, MOD 

3. +,- 

4. AND, OR 

Azonos pi ecedenci £.ju. mu.velctek kozdtt a kiertekei<!-» balrol 
jobbra tdrtenik. ZArojeltk t&tszoleges m£lysegig at kcLruazhetok, 
rajuk a riiateifiatika szabAlyai ervenyesek. 



b/ IF utasitAs 

Programunkban mindig elofordulnak olyan helyzetek, mikor 
valarnilyen esemeny bekovetkezesekor , ill. be new kovetkezesekor 
mAs-mas utasitAst, vagy programreszletet kell vegrehajtani . 

Az ilyen feltetelek vizsgilata az IF utasitAson keresztul 
tortenhet. Ennek formAja a kovetkezo: 

IF feltetel THEN utasitAsl ELSE utasitAs2; 

ahol "feltetet" egy olyan kifejezes, mely logikai tipusti 
eredrne-nyt ad - lehet tehAt relAcios es logikai operAtorokkal 
felepitett bonyolult kifejezes, de lehet pi. egyetlen BOOLEAN 
tipusii vAltozo, vagy konstans is. "UtasitAs" pedig egyetlen 
utasitAs abban az ertelemben, ahogyan az a szintaktikai 
osszefoglaloban lAtszik; tehAt a BEGIN END "utasitAs-zArojelek" 
kozdtt tetszoleges szAmu tovAbbi utasitAs, teljes prcgramreszlet 
szer epelhet . 

Az utasitAs vegrehajtAsa a kovetkezo: ha a feltetel eredmenye 



TRUE /igaz/, a THEN /=akkor/ kulcssz6i ha FALSE /hamis/i az ELSE 
/=kuLonben/ utan kovetkezfi utasitas keru.l vegrehajtasra. 

Az ELSE ag nero kotelezo, ha nines otti a THEN-t k 6 vet 6 utasitas 
utan kel I a pontosvesszot kitenni. Ebb en az esetbetij ha a 
feltetel hamisi a program vegrehajtasa a kovetkezfi utasitason 
folytatodik. 

Vigy&zzunk arrai hogy az ELSE kulcsszi elott soha nem allhat 
pontosvessz<i! 



PI.: 



IF A < B THEN A := B ELSE B := Aj 



IF ( 



f~* 



<= B ) AND ( B 
IF A = 1 THEN 



ELSE 



2 ) OR ( A = ) THEN 
BEGIN 
WRITE ( ■ IGEN ■ ) ; 
A := 999 
END 
BEGIN 

WRITE ( ' NEM ' ) ; 
A := 888 
END 

ELSE WRITE (' HIBA •); 



E masodifc peldaban olyan esetet L&thatunki mikor a THEN-t 
koveto utasitas nuiga is egy IF utasits.iT. Fr fcermtsEetesen 
megengedett j dt figyeLnunk kell arrai hogy az egyes ELSE agak 
melyik IF-hez kapcsoLodnafc. Ennek eldontese a "betulrol kifel6" 
tipu-Mu fel^pites vegigkovetese alapja.n tcrtenhets ha«onL6an az 
"egymisba igyazott" BEGIN - END parokp vagy cikLusok mintajara 
itt is mc-g v.i \ \ v si o v !'•■. t ■?" a hc-jszeru.eri egyhiosrc agyazodu THEfs 
EL£E parokat. E szab&lyt vegyul. figyelenifce prograniunk irasanal. 

F'^idankbarii ha pL. a masodik IF utasitasbaii nem volna szuks&g 
ELSE igrai a problems csak a kovetkez<Sfc£ppen vc'.na ntegoLdhato: 

IF ( A <= B ) AND ( E > 2 ) OR ( A = ) THEN 
BEGIN 

IF A - 1 THEN BEGIN 

WRITE ( ' IGEN ' ); 
A := 999 
END 
END 

ELSE WRITE ( ' HIBA ' J 

Ily modem /a belsi IF utasitas "zarojelbe tetelevel'7, 
elfceru.Ltu.ki hogy a fordito az ELSE agat a masodifc IF-hez 
parositsa, ami LogikaiLag hibat okozna prograrounkban. 



c/ CikLusutasitasok 



Egy programban igen gyakran elAadodnafc olyan resz feladatokj 
amikor ugyanazt a programreszletet tdbbszor egymas utan kell 
vegrehajtani . Az ilyen programreszleteket ciklusoknak nevezziik. 

Egy cikluwiak sziikseg* van nehany olyan utasitasra ( vagy 
5zifnb6lumra, amelyek az adott programreszlet, a ciklusntag 
rnegfel elo szamu megismetleset biztositjak. 

Ilyen utasitas a RASCAL nyelvben harom fele van. 



1. FOR cikLusvAltozo := kezd'iertek TO /vagy DOWNTO/ vegertek 

DD utasitas ; 

Est a fajta ciklusszervezest oLyan esetekben hasznatjuki ami k or 
a ciklusmag ismetlesenek szama a ciklus megkezdesekor pontosan 
ismertj vagy kiszAmithato. 



Az utasitasban szereplo "utasitas" egyetlen PASCAL utasitis - 
Cigy, ahogy azt mar lattuk. A "ciklusv&L tozo" egy sor sz amoz ot t 
tipusCi vAltozo Leheti ttelynek szerepe szamlalni a ciklusmag 
vigrehajtAsait. "Kezdoertak" es "vegertek" ket olyan kifejezes 
Lehetf melynek tipusa megegyezik a "ciklusvaltozo" fcipusAval. 

As utasitAs vegrehajtasa a kovetkezi: a gep kiertekeli a kit 
kif*jftz*stv majd a "ciklusvAltozo" "kezdoertek" frrtikfrvet 
vegrehajtja a ciklusmagot abban az esetberti ha ftrWke meg nem 
erte el "vegerteket " ( tehAt TO eset^n kisebb vagy egyenlo, DOWNTO 
eset£n pedig nagyobb vagy egyenlo annal. Az utasitAs vegrehajtAsa 
utari "ciklusvaltozo" frttke TO eseten 5UCC ciklusvAltozo , DOWNTO 
eseten pedig PRED ciklusvAltozo Lesz - tehAt ha pi. a 
ciklusvALtozo tipusa INTEGERS eggyel megnovelir ill. Lecsokkanti 
azt. EzutAn kovetkezik a vizsgalat /a ciklusvAltozo *lerte--e a 
vegertekt"/; majd a ciklusmag iXjhoLi v^grehajtAsai ill. kil£p4s a 
cikLusboL. 

MAskeppen fogalmazvs a ket hat Art megadi kifajezesek 
kaert^keleseboL egy diszkret elemekbol Alio lntervaLlum adodik 
M . Ezen az interval Idiri elemein halad ve*ic novekvo, ill. 
csikken* sorrer.dben "ciMusvAltozo" erteke. A ci-Kusmsg Bnnyiszor 
i l;.\ . . ■' . !.~ ":=;') i. :.;' . '.,- ~. ■'. emi v','„\i il l ;'•". i-f ' ■". . .;.■:.:'•' -V . * 
tyehAt ha TC eseten a ftlso hat Art fcisebbnek vagy eg/enlonek 
adjuk meg «i also hatArrali a cikLusmagot egyszer sent hajtja 
vegre, 

A ciklusvAltozot a ciklusmsgon belul termeszetesen 
felhasznAlhatjuk, d* aj ert*ket net, kaphat ! 

PL.: FOR A := 1 TO JO DD WRITE ( A > ; 

kiirja a termiszetes sz&moLat 1-tol 10— ig 

FOR A ;= 30 DOWNTO 1 DO WRITE ( A ) ; 

ez csokkeno sorrendben teszi ugyanezt 

FOR KAR I- 'A' TO 'Z' DO BEGIN 

WRITE ( KAR ); 
WRITELN ( 0RD( KAR )) 
END; 
kiirja az angel ABC betti.it, feltuntetve 
ASCII k6djukat is 



2. REPEAT utasitAs UNTIL felt£tel ; 

Ez az utasitas olyan ciklusok szervezesere ad tehetoseget f ahol 
a cikLusboL valo kilepfcs egy olyan feltetelhez van kotve, amely a 
ciklusmag bArhAnyadik vegrehajtAsa sor An beAllhat. 

VegrehajtAsa a kovetkezo: a program vegrehajtAsa a REPEAT 



kulcsszd el£r6sekor tovAbb folytatc-dik, rikerul a ciklusmagrar 
mely pontosvesszikkel elvAlasztott t&tszdleges szima utasitAsbil 
Althat. Igy a ciklusmag LegalAbb egyszer feltetlenul 

v^grehajtudik! 

V£grehajtva a ci klusmagot , a g6p klfertfrkeli az UNTIL ut as it a.5 
ufcAn All* logikai eredminyt ad£> "feltetelt". Ha ennek eredmenye 
FALSE, a futAs a REPEAT kulcsszdt kov*t6 ciklusmag *ls4 
utasitAsAn folytatodik, ha pedig a kifejez^s TRUE eredntdnyt adi 
kit ^p a ciklusbol. 
PI . : REPEAT 

READLN < KAR ); C KAR CHAR tipusu vAUozc. ) 
WRITE < KAR ) 
UNTIL KAR = 'Q'; 

E p£lda addig olvas b* a bil lentyftzetrol es ir ki a k^pernyire 
karaktereket ; mig G~t nem irunk bt>. 



Megjegyezzuk, hogy a REPEAT ... UNTIL utasitAspAr a BEGIN... 
END-hez hasonlc-an utasitAs-zArijelk^nt is funkcionAlj a teljes 
ciklus egy utasitAsnak szAmit. 



3. WHILE feltetel DO utasitAsj 

Ez a oklusutasitAs elsisorban abban kCLcnbozik a REPEAT ... 
UNTIL ciklustiLi hogy itt a feltetel &z utasitAs vegrehajt&sa 
elott keriil kiert£kel6=re f igy eL&AUhat olyar. es-et- amikor* a 
ci klusmagot *gy5£*r s*m iiajtjuk v6gr*. 

E:: utasitA^ hatAsAra a gf-p olyan esett-tr. hajtjs ^4gr« a 
ciklusmagoti ha a "felt6teL N igaz. Teh.lt ha a WHILE utasitAsra 
t.5rte»-.t rAfijtUkor a Sc-lt£t*l FALSE Gre-dk.er-.yt art, ft ■ ■-:;• elw^tAE 
azonnaL 5 kovi-tfcazi utasita&on folytatiidik. 

Pt.: HIBA : = A > 100; C HIBA BOOLEAN tipusu > 

WHILE HOT HIBA DO BEGIN 

A :- A * 2; 
WRITES A >[ 

HIBA := A C= tIAXINT DIV 2 
END j 



£r denies "algoritmikus formAban" osszefoglalni a PASCAL 
ciklusutasitAsaifc. 

FDR ciklus: 

1. ciklusvAltoz* : = kezdiertek 

2. IF ciklusvAltozo vegertek THEN vege 

3. utasitAs 

4. ciklusvAltozo := SUCC ciklusvAltozc- 

5. 60 TO 2 
REPEAT ... UNTIL ciklus: 

1. utasitAs 

2. IF feltetel = TRUE THEN vege 

3. 60 TO 1 
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WHILE ciklus: 

1. ir feltetel 

2. utasitis 

3. GD TD 1 



= FALSE THEN vege 



d/ A CASE utasitis 

Ez az utasitAs lehetove teszi, hogy az IF utasitistol 

elteroen ne csak egy feltetel igaz vagy ha mis voLta a Lap J An 

hozzunk donteseket, hanem egy sorszimozott tipusu. valtozd 

ertek^tfil f&ggton mas 6s mas utasitisokat hajtsunk vfegre. 

PL. ha SZAM es S INTEGER tipusCi viltozok, a 

CASE SZAM MOD 12 OF 

1 : S := 1; 

2 : S := -2; 

3.. 5, 7.. 9 : S :=2; 
6,10,11 : S := 3 
END; 

utasitis SZAM erteketol fuggetlenu.1 ad S-nek 
kulonbozo ertekeket. 

E pi!dAr<M az utasitis hsszniLatival kspcsolstos le-gtabb 
szabiLy leolvashatA; as OF kulcsszo utin sorolandik fel » CASE 
utitv ill* kifij*z6s lehetseges ertekeii maj;i kettosponi at 4a a:, 
azon ert£k eset^n elv£gze.ndA utasitis, mely termeszetesen Lehet 
BEGIN ... END, vagy REPEAT ... UNTIL jellfegft utasitis is. 

Lith&to az is, hogy 5 konstansok felsoroL&sAn&l egy sorban /c-gy 



livai 1 »C.S 



i . . 



M-oadhatunk 



- .-',i-. 



v:' v\ i e-t 



elvilas2tva* . a : . .•.*. i r.t in&g&dfr&to inter vallum is. 



n i tr 



nti pel. dink a? on ban hi bis. Ugyanis n*n soroltuk ;el 



kifejezes Altai falvehetc valanennyi erteketj hisz SZAM MOD 12 
sdhat eredmenyt is. Ebb en az esrtben programunk itt 
hi bauzenette I leaLLna. Egy CASE utasitasban fel i-rell keszCuni 
rain den eshet&srgre. 

Reszben ennek megkonnyitesere szolgil az a lehetostg, hogy a 
CASE utasitis utolso "konstansakent" irhato az ELSE " kuUsszo. 
Ha ezt tettuk, es a kifejezes olyan erteket vesz fel, mely a 
felsorolt utasit&sok kozott nem szerepelr akkor az ELSE utan 
kcvetkezi utasitis kerul vegrehajtisra, mely termeszetesen lehet 
eg yet I en pontosvesszo ■ asaz ures utasitis is. 

Lissunk egy peldit egy ilyen CASE utasitisra: 



CASE KAR OF 



C KAR CHAR tipusu 3 



'A 1 




: S := 1; 


'B', 


C 


: S := 2; 


'D' 




: BEGIN 
S := 3; 
M := 12 
END; 


'E' 




: S := 4 


ELSE 


5 


:= 


END; 
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A mis PASCAL verzibkhoz szokott 0Lvas6nak feltCinhet az itt 
Lit hat* utasitis szokatlan szintaktikija; ha CASE 

utasitisunkban ELSE ig szerepel, az ELSE-t neg*l6z6 utasitis 



vegere nem szabad pontosvesszot tenni, /ELSE elott 



nern il that 



!/, as ELSE szo 6s az utasitis kozott nem iLl kettosponti 
valamint ebb en az esetben a CASE utasitist nem szabad END; -el 
lezarnii ami pedig ELSE hiinya eseten kotelezo. 



e/ WITH utasitis 



Ez az utasitis a RECORD tipusu adatok kezeLeset konnyiti meg. 
Mint tudjukf egy rekord valamelyik elemere a kovetkezokeppen 
hivatkozhatunk: REK0RDN£V.ELEr1 . Abb an az esetben, ha egy 
programreszleten belul egy adott rekord elemeire sokszor 
hivatkozunki a rekord nevenek illando ismetelgetese- 

kenyelmett enne vilik. 

Ennek egyszeriisiteset szolgiLja ez a parancsi melynek formija a 
kovetkezo: 

WITH viltozo DO utasitis; 

ahol "viltozo" egy rekord tipusG viltozo neve, "utasitas" 
perfig a mar sol. he L yen tito't egyefclen utositisj roety 
termeszetesen ez esetben is Lehet BEGIN es END feozotti 
programres: let . Ezen az utasitis.:*; beLG.l pedig a "viltozo" rekord 
e'emeire ftgy hivatkozhatunki mint onilU* viltcz'-krsi iehi* n:n:a 
2zCI:^eg a pontta! valo rninAsitesre. 



r*\ 



VAR REK 



HIBA 



RECORD 
EGY IK 
MAS IK 
Au.r n 

END; 
BOOLEAN; 



INTEGER; 

1 . . 100; 

ARRAY C 1 . . 8 ] OF CHAR 



BEGIN 



WITH REK DO IF NOT HIBA THEN 

BEGIN 

E6YIK := E6YIK+1; 
MASIK := EGVIX MOD 50; 
ALFA:='0.K. '; 
HIBA:=TRUE 
END; 



END. 



A WITH utasitis utini "utasitisban" termeszetesen nem csak 
olyan viltozok szerepelhetnek, amelyek a rekord elemei: lehetnek 
ott egyeb "normilis" viltozok, de akir egy misik rekord is - ez 
esetben az arra valo hi vatkozisnil a teljes szintaktika szerint 
kel I eljirni. 
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Megjegyz^sek: 

1. MAs PASCAL verzioknAl ugyelni kell arra» hogy aiitennyiben 
letezik olyan nevu "egyszerii"vAltozonk is ( amilyen newel rekord 
egyik el ern^t is illettuki akkor a WITH utasitAson belul az 
"egyszeru" vAltozo elerhetetlen - hisz nevevel ez esetben a 
rekord ilyen elemet jeloltuk ki. Mivet a PR'IMO PASCAL ilyen 
nevegyezest nem enged rneg, ez a problema nem jelentkezik. 

2. Szinten elterest jelent a standard PASCAL-t6l, hogy a PRIMD 
PASCAL-nAl ket WITH utasitAs "egymAsba AgyazAsa" hibAhoz vezet. 



f/ A GOTO utasitAs 

Mint mar a bevezetuben emlitettuk* a PASCAL programozAsi nyelv 
segits^gevel a problemAk AltaLAban megoldhato-k SOTO utasitasok 
nelkulr ami szep, elegAns 6s hatekony programfelepitest 
eredmenyez. Altat AnossAgban is ajAiilhat juki hogy a programozo 
kerulje PASCAL programjaiban GOTO utasitAsokat, mert azok 
nagymertekben rontjAk a program Attekinthetosegetj 6s gyakran 
nehezen felderitl-.eto hibAkhoz vezethetnek. 

Enn&l; ellener* -vlofordulhat olyan es*t» amikor feltetLen 
. ezer t esAtsdAs /GOTO utasitAs/ nelkul ii^ui, vagy csak nagyon 
kor ulniGnyes*n oldhato tri&g val«Mt&ly probl&riiei. 

Az ilyen esetekben hasznALhatjuk a GOTO cimke formAjh 

, , fc _ _ • J. 1 . I. Cm f ■ I t * 1 I - .. ■■•_'•■ ' I I J I I |l ' . 1 ... .J. I - II .>' , (.11 II 

UvflS; ^aSlt t-i. ItatUirii «ZbI i.tsavflOast *.::<: -...vi._,c t* •-.ili'.^v 

koveto uiasit&sra. AS utaeitssban s-zersplo "cinvkit" a program 

. ■ : Ujt.1i -. ; '-:". ll -2:- .- -■ • '.:.: ! 'l ■ J*i ,.,-L ,'. • rl L, 

/T*rm*3zet*s*>n itt keil rf*klarAlni a programbar. etdforduli 
*aiamennyi cirokfeH. A cimke ess). .vlojc-l nelkuli egess szAm leh&tj 
ily motion miridig ftlk0l6nith*t4 riic-.s aZimbolurnoktol./ 

A cimk* a programban - deklarAlAsAn kivO.1 - egyetten egyszer 
szerepelhet* itt egy kettospont kelLi hogy kovasse, Az ilyen 
cimk^re vonatkoz6 GOTO utasitAs v£grehajtisa hatAsAra e cimfce /as 
kettfispont/ utAni el. so utasitAssal tog folytstodnj a program 
vegrehajt&sa. Egy cimkere, tc-riti*sz*t*ii*nj tobb GOTO utasitAs is 
hivatkozhat . 

GOTO utasitAssal lehetostg van egy szegmenssel beloLi ugrAsrs» 
de Lenet szegmensbol ugram foprogramba, sit egyik szegmensbol 
egy mAsikba is. Ez utobbi esetet azonban csak roppantul indokolt 
esetben hasznAl juk; nehezen felder itheto bonyodalmak 

szArrnazhatnak belole. 



■U- 



PL: 



— 



LABEL 933; 

VAR ADAT 

HIBA 



ARRAY C 1..20 3 OF INTEGER; 
BOOLEAN; 



BEGIN 



FOR I := 1 TD 20 DO 



BEGIN 

READLN (ADATCID); 

HIBA := ADATC I ] > 100; 

IF HIBA THEN GOTO 999 
END; 



999: 
END. 

E peldankban hibis adat beirisa eseten a program azonnal leall. 

Osszefogialisul azt ajinlhatjuk, hogy a Programozo tobbszor is 
gondolja it a feladatoti 6s GOTO utasitast csafc akkor 
allcaUnazzoni ha ezt ez utan is elkerulhetetlennek tartja. 



A. A. Megjegyzfesek /comment* 



Programunk {rasa kozben hasznos segits^get jelenthet szobeli 

megjegyzdsek elhelyezdse s: utasitisok kdzott. Eire a PRIME 

PASCAL a kc-vctkezo Ieh«t6st5et biztositjai a prograwnak bAnnelj 

•Ay^r, heiy^n elhelyezheto r,.*;j<>y/: = r, ahot szoki: izerepelhet 

'tch't . . .... ■ .- ; -* ::;-.:.:..■. : :. ," '. ' . " -:-.:.._;' 

kapc3o= z*roj*l*k /"&,", ill. a" biUer.ty&k/, vagy 'H' e= '*)' 
karakterpsrok kdzi k*M tenni . A fordit* az j iye-n karakterel. 
kozott Levi szoveget trlje; eg4=z£ben figyelmen kivul hagyjcti a 
prografi.ra sernrni hatisa nine ben. /Ez alol kivetett jelent az *z 
65«t , he. a comment legelso karaktere egy "$" jel: ilyenkor a 
kovetkezfi pozicioban ope i 6k adhatck meg a forditonak - lu. a 
kovet kez& fejezet . / 
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KISS SY336Y 

5. A FORDITO QPCIOI 2500 tSZT£H6BN 

AIU* 1 * )M9S U.4, 
TEL: <33)3H 603 

A FRIMO PASCAL al apertelmezesben a C editor parancs hatasara a 
beirt /vagy elozoleg kazettarol betoltott/ szoveget leforditja 
gepi kodra oly modon, hogy a leforditott szovegrol a kepernyore 
foLyamatos listit k£szit. Az egyes PASCAL sorok elott feltunteti 
/hexadecimalisan/ azt a memoriacimetj ahoi a sornak megfelelo 
gepi kodO. atasitAsok ksadodnek. 

EttAL a formatol, valamint nehany forditasi szolgaltatas 

eredeti formajifeol ett6rh*tunks ezt forditasi opciokkal erhetjuk 
el. 

A forditasi opciokat comment elejen adhatjuk meg ; ha a 
comment et nyito kapcsos zarojelet /vagy (* jelet/ kozvetloniil egy 
$ karakter kovet, az ez utan alio szoveget a ford i to opcionak 
t e k i n t . 
&* Ez a kovetkezok valamelyike lehet; 



alapertelnienes: L* 



{*>) <$ 



Ezzel az ope i oval engedMyezhet ju.k r ill. tilthatjul: le a 
prograiiisz&veg I istisasit fordit-iskor . 

L+ eseten a prograiiirol folyamatc-san lists keszulj 
L- eseten e helytol kezdve csak a szintafctikai Lag hi bis 
sorokrol kes;cul lists f 



i , . . /u, 

— ■ ■ T ■ , I t/T 

( Oh esetin a program eg^s: szamok 6sszeaa==a es kivonAsakor is 

veg •■•: tin Ic sor du I As- vi z sgll atot . 
Q- megadasa eseten ez nem fcortfcnik meg. 

/SsorsAsnttj 052tA.5nALi valawint valos s:a.Aiokkal vsgzett 
bsrmely mi'ivelet eseten a F'ASCAL mindenkeppc-n veger i L yen 
.'izsgALatot !/ 



S alaperteUiezes: S+ 

S+ eset&n a PASCAL minden eljArAs es fu.ggveny hivasa elott 
megvizsgal jai hogy ebben a szegmensben eloallhat-e 
tu.lcsordula.s a stackben /egymAsba er a visszateresi 
cimewk tArolAsara szolgalo "verem" /stack/ es a dinamikus 
<T- vALtozokat tarol6 "halom" /heap// pi. a dinamikus 

valtozok nagy tomege miatt. Ha ez elofordul, a futas 
"Out of RAM at FOnnnrT hibajelzessel meg All. 

S- eseten ez a vizsgAlat nem tortenik meg. 



A alapertelmez6s: M 

A+ megadasa eseten a PASCAL tornbok hasznAlati.nAl 

- fa- 



megvizsgAl jai hogy az aktuAlis index beleesik-e a 
deklarAlt hatarok koze» es ha neihi a futAs hibauzenettel 
leALl. 
A- eseten letiltjuk ezt a vizsgAlatot. 



I atapertelmezes: I- 

A PRIMO PASCAL Altai hasznAlt szamabrazolasi mod mellett olyan 
szarnok osszehasonlitAsakor j melyek 32767-nel nagyobb ertekkel 
kulonboznek egymistolj hibAs eredmeny keietkezhet. 

Az 1+ opcio megadlsa biztositja, hogy az eredmeny ilyen 
esetekben is helyes lesz. 

I- eseten az osszehasonl itAsok eredmenyenek vizsgAlata el mar ad. 



0-j S-f A- vagy I- opcio eseten a program futAsa gyorsabb lesz ( 
de egyes esetekben elofordulhat a program» rosszabb esetben az 
egesz PASCAL rendszer "elszAl lAsa". Az alaperteUiezesek az 
"Atlagos" esetekben biztositjAk a program biztonsAgosi kielegito 
gyorsasAgO. futAs At. 



Ez az opcio lehetAs£get ad arra r hogy Cigy forditsunk le PASCAL 
prograrnotj hogy csak egeszen fninimAlis he I yet foglaljon t*l a 
Memctri Ab<SL . 

Az opcio betfrjele utAn egy S karakterb-M Alio file- nevnek kell 
kovstkezni* /na* aposztrofok kozott!/. Ha s. nev enntl rividebb 
ler.ri*. 5z6k6zokkel ki kell azt egesritenunk S karakterre! Ez a 
file nev Lesz a forditAshoz felhasznALt file neve. Ezt a file-t 
k or Abb an az editor F parancsAval kellett kiiratnunk a mag nor s« 

teen opcio megadAsa eseten a fordito elkezdi keresni a szalagon 
a tuegadott nevfl. file-t. Ha megtalAlta beolvas abbol nehAny sort f 
azokat lefordltjai majd ujabbakat keres. Ezt fceszi a file vecjeig f 
majd folytatja a forditast a begepelt szoveggel. Itt a prograni 
folytatasai befejezesti vagy akAr tovibbi F opcio kovetkezhet. 
Igy lehetoseg van el Are megirt programreszleteki eljArAsok tobb 
prograruban torteno felhasznAlAsAra anelkuli hogy azokat Cijra es 
tijra be kellene gepelnii vagy beszerkeszteni a forrAsnyel vu. 
progr amba. 

A milkodes meggyorsitAsa erdekeben szalagrAL forditAs kozben a 
PASCAL nem listiz. 



^ 
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1 - FOC3GE;L_itK= HIBAGZENETEK 

A fordito Altai jelzett hibakidok jelentesei a kovetkezok 



1. TCil nagy sza.m 

2. ; hiAnyzik 

3. Deklar Alat I an ayonositci 

4. HiAnyzo azonositci 

5. Konstans deklarAciiban = es nem := jelet kell 
hasznAlni 

6. = hianyzik 

7. KifejezAs nem kezdddhet ezzel az azoncsitc<val 

8. : = hiAnyzi k 

9. ) hiAnyzik 

10. Helytelen tipus 

11. . hianyzik 

12. HiAnyzo tenyezA 

13. Hianyzi konstans 

14. Ez as cizoriositii nem konstans 





15. 


THEN hianyzik 




16. 


DO hianyzik 




17. 


TD vagy DCWNTO hianyzik 




18. 


( hianyzik 




19. 


Ez a ki fejezes new letezik 




20. 


OF hi Any 21 k 




21. 


t hianyzik 




22. 


; hiAnyzik 




23. 


PROGRAM hiAnyzik 




24. 


Egy viltozA hiAnyzik 




.-.e. 


BEGIN hiAnyzik 




2£. 


A READ eljArAs hivAsAnAl egy v 


^ 


27. 


Ilyen tipusft ki fejeziseket new 




28. 


Az c-ssres tipusnak INTEGER-nek 






■gy vAltozo hiAnyzik 

ehet osszehasonl itani 
vagy REAL-nek kell 
l enni 
2'3. Ilyen tipusu vAltozot nem lehet beolvasni 

30. Ez a: azonositi nem tipusnev 

31. A valc-s szAmban hiAnyzik a kitevo 

32. SkalAr kifejezes /nem numerikus/ szukseges 

33. Ores string new megengedett, helyette hasznAljunk CHF; (0) -t 

34. C hiAnyzik 

35. ] hiAnyzik 

36. Tomb index csak sorszAmozott tipus tenet 

37. .. hiAnyzik 

3B. ] vagy , hiAnyzik a tdmbdekLar Aciob«M 

39. Az alsi hatAr kisebb a felsonel 

40. A haliuaz tobb mint 256 elembol All 

41. A fuggveny eredmenyenek azonosito tipusnak kell lennie 
f 42. i vagy 1 hiAnyzik a halmazban 

43. .. vagy , vagy ] hiAnyzik a halmazban 

44. A parameter tipusa csak azonosito lehet 

45. Egy nem £rtekadc< utasitAs elso tenyezoje nem lehet ures 
ha I ma z 

46. SkalAr tipus - REAL -t is beleertve - hiAnyzik 

47. SkalAr tipus - REAL -t nem beleertve - hiAnyzik 

48. Nem kompatibilis halmazok 

4S. < es > nem hasznAlhato halmazok osszehasonl itAsAnAl 
50. FORWARD , LABEL , CONST , VAR , TYPE vagy BEGIN 

— - %6— 



RECORD 



hianyzik 
51- Hexadecimalis szarn hianyzik 

52. Halmazokat nem Lehet POKE 

53. Till nagy tomb 

54. END vagy j hianyzik a 

55. Mezfilista azontiSit6ja hianyzik 

56. WITH utan new all valtozo 

57. WITH utasitAsban a vALtozonak 
lennie 

58. A mezolista-vALtozonak nines 
utasitAssal 

59. Elojel nelkiili egesz szarn hianyzik 

60. Elojel nelkiili egesz szAm hianyzik 
61. 
62. 
63. 
64. 
67. 



e I j Ar asb an hasz na I n i 

definicio vegen 



RECORD tipusunak kell 
kapcsolata a WITH 



LABEL 
GOTO 



utan 
utan 



Ez a cimke rossz szinten van 

Nem dekLarALt cimke 

SIZE parametere csak vALtoz6 lehet 

EgyenlisegvizsgAlat csak pointer tipusok kozott vegezhet»5 

A ket kettospontot 6s egy egesz tipusu szamot hasznal6 

WRITE eljArAs parametereit si:s2:H formaban kell uegadni 

68. String nem tartalmazhat sorvege karaktert 

69. NEW , MARK es RELEASE eljArAsok parametere csak pointer 
tipuso valtozd lehet 

70. Az ADDR fuggveny parametere csak valtozo lehet 



Futc.5 kozbert eloadodo hibajelzesek: 



Halt 

Overflow 
Out of RAM 
/ py zi- o 
Index too low 
Index coo high 
hath op. error 
Number too large 
Nuiiib er exp ec t ed 
Line too long 
Exponent expected 
ROM Call error 



= Megal Litis 
= TtolcsorduLAs 
- Ehhez kicsi c roeworia 
= NuL Laval oszt&s 
= TO. I alacsony index 
= Tul mag as index 
= Matematikai hiba 
= Tul nagy szAifi 
= Szarn hianyzik 
= TO I hosszO. sor 
= Kitevi hianyzik 
■ Rendszer hivasakor bekovetke- 
zfl hiba 



c 
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FOGSELtK 



EF06LALT SZAVAK, 

ELORE DEFINIALT AZONQSITOK 



r 



Foqtalt szavak 



AND 


ARRAY 


BEGIN 


CASE 


CONST 


DIV 


DO 


DOWNTO 


ELSE 


END 


FORWARD 


FUNCTION 


GOTO 


IF 


IN 


LABEL 


MOD 


NOT 


OF 


OR 


PROCEDURE 


PROGRAM 


RECORD 


REPEAT 


SET 


THEN 


TO 


TYPE 


UNTIL 


VAR 


UHILE 


WITH 











^ 



Eltire definU.Lt azonositAk: 



-" 



CONST 

TYPE 
PROCEDURE 



FUNCTION 



MAXINT 








NIL 








BOOLEAN 


CHAR 


INTEGER 


REAL 


WRITE 


WRITELN 


READ 


READLN 


PAGE 


HALT 


USER 


OUT 


NEW 


MARK 


RELEASE 


TIN 


TOUT 


INLINE 


POKE 




AB5 


SOR 


SORT 


ODD 


RANDOM, 


CRD 


EUCC 


PRED 


INCH 


EOLN 


PEEK 


CHK 


ENTIER 


ROUND 


TRUNC 


FRAC 


SIN 


COS 


TAN 


ARC TAN 


EXP 


LN 


ADDR 


SIZE 


INP 









Set _ geu-e-to 
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RASCAL PtLD A PROGRAM OK 



Az itt kozolt programok ki fejezetten demonstracios C6LI&L 
k^szultek. Eztrt terrn^szetesen gyakran talalhat az Olvaso olyan 
r^szlc-teket i rfle-lyeket cgyszerdbbc-ni vagy elegansabban tudna 
megoldani - k6rjuk f tegye ezt. 

Kulonossn a PASCAL nyelvvel most ismerkedok szamara ajanljuk 
e programok v£gigbong£sz£s£t - i-ajtuk keresztul sok homalyos pont 
6rthet6v£ vilhat. 



a/ Masodfokd egyenlet gyokeit szamitd program 



PROGRAM GYOKOK; 



VAR 



M 
D 
C 
KOMPL 



REAL; 
REAL; 
CHAR; 
BOOLEAN; 



EHATO : ARRAY C *A 



C munfcavaltozd ) 

C a gyok masodik tagja lesz ) 

C TRUE, ha az egyenUt gyokei 

kompt t'>;ek ) 
■C D OP REAL; 



^ 



PROCEDURE DISZKR ( A, B, C : REAL ); 
VAR M : REAL; 
BEGIN 

h := 5QR ( B ) - 4 ' A * Cj 

KOMPL := m < 0; 

IF KCMPL THEN K :« -M; 

D : •= 3QRT < M / < 2 * A > > ; 



'□program kezdodik 3 



^ 


END; 






BEGIN 
REPEAT 
PAGE; 
FOR C : 


C 

= 'A 



TO 'C DC BEGIN 

WRITE ( C, '=' ); 
( egyutthatok beolvasisa 3 READLN < EHATOC C ]); 

WRITELN 
END; 
IF EHATO ['A'3 = THEN WRITELN ( ' X= ' ,-EHATOC ' C 3 

/ EHATO C'B'] ) 
C nerii ffiAsodfokii egyetilet ) 
ELSE 
BEGIN 

DISZKR ( EHATOC'A'J, EHATOC 'B' ], EHATOC 'C ]) ; 
M := -EHATOC'B'] / { 2 * EHATOC 'A']); 
IF KOMPL THEN BEGIN 

WRITELN* 'XI =', M, ' + I 



■X2 = 



Ni 



- I 



END; 



WRITELN 

END 
ELSE BEGIN 

WRITELN* 'XI =', M + D ); 
WRITELN* 'X2 =', M - D ) 

END 

~l9- 



D ); 
D ) 



C := CHR( J; 

WHILE C = CHR( ) DO C := INCH 

C vAr, fiiig *gy billenty&t lenyomunk 3 
UNTIL C ■ 'Q' 
{ 'G' billentyO hatisAra v£ge, egy6bk£nt ii j adatokat k£r ) 
END. 



r* 



*- 
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-50- 



r 



b/ A kovetk&zA pelda iz*lit<5t ad a dinamikus valtozik 

hasznalata.b<M, b*mutatva egy pMdat a rekurziv el jarashivasra 
is. 



PROGRAM LANC; 



TYPE SZD 
ADAT 

SZAM 
NEV 
KOV 
END; 
MUTATO = ~ADAT; 



= ARRAY C 1..8 3 OF CHAR; 
= RECORD 

INTEGER? 

SZO; 

"ADAT ; 



VAR 



ELSO 
C 



: MUTATO; 
: CHAR; 



PROCEDURE KARBE; 
BEGIN 
REPEAT 

C := INCH; 
UNTIL C <> CHR < ); 
END; 



C egy karakter beolvasasa ) 






f> 



PROCEDURE BEIR ( EL : BOOLEAN J ; 

£ EL ^ TRUE, ha a: els6 adat 

be 1 rd.se kovetkezik } 
VAR P.Pl ; MUTATO; 

FUNCTION UTOLSO : MUTATO; 
VAR P : MUTATO; 
BEGIN 

P := ELSO; 

WHILE P A .KOV <> NIL DO F := F"\ KOV; 

UTOLSO := P; 
END; 

BEGIN { BEIR etjirAs kezdAdik } 

IF EL THEN 3E6IN 

NEW ( ELSO ) ; 
PI : = ELSO; 
END 
ELSE BEGIN 

P := UTOLSO; 
NEW ( PI ); 
P A .KOV := Plj 
END; 
WITH PI" DO BEGIN 

KOV := NIL; 
PAGE; 
WRITE (' SZAM ? '); READLN; READ ( SZAM >; 
WRITE (' NEV ? '); READLN; READ ( NEV ) ; 
END; 
END; C BEIR eljaras v£ge ) 






-~ 



PROCEDURE KIIRlj 
MUTATO; 



{ eljiras az ad at ok beirisi 

sorrendben torteni kiirasara J. 



VAR P 
BEGIN 

PAGE; 

P .:= ELSO; 

WHILE P <> NIL DO BEGIN 



KARBE 



END; 



WRITELN ( P'.SZAM, ' 
P := P^.KOV 
END; 
{ varakozas, hogy a kiirtakat el 
Lehessen otvasni ) 



,P A .NEV ); 



^ 



PROCEDURE KIIR2; 



62 az eljaras irja ki a I An cot 
forditott sorrendben, a REK nevO. 
rekurzivan hivogatott eljarason 
keresztul ) 

HOTATO ); 



PROCEDURE REK t P 
BEGIN 

IF F A .KOV <> NIL THEN REK ( P^.KOV ); 

WRITELN < P^.SZAM,' ' 
END; 



1 ,P'-.NEV ) 



BEGIN 

PAGE; 

REK ( ELSO ); 
END; 



C KIIR2 eljaras ) 



.- 






BEGIN C 
BEIR TRUE 
REPEAT 
PAGE; 



foprogrctift 3 

{ a legetsi el ©met be kell irn: 3 



WRITELN; WRITELN; 

WRITELN (' B = UJ ELEM BEIRASA '); 

WRITELN (' E - ADATOK KIIRASA BEIRAS SORRENDJSBEN '); 

WRITELN (' F ■ ADATOK KIIRASA FORDITOTT SORRENDBEN '); 

WRITELN ( ' V = VeGE ' ); 

KARBE; 






CASE C OF 

'B' : BEIR ( FALSE ); C tovsbbi eleuiek beirasa ) 
'E' : KIIRl; 
•F" : KIIR2 

ELSE ; C mas billentyft eseten nem csinal 

semmit ) 
UNTIL C = "V'l 
END. 



A- 



